• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Another simple idea for dragging a form without a control box.

Another simple idea for dragging a form without a control box.

Another simple idea for dragging a form without a control box.

Rate Another simple idea for dragging a form without a control box.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim ym As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xm = X
ym = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Form1.Left = Form1.Left + X - xm
Form1.Top = Form1.Top + Y - ym
End If
End Sub