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.
(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
Another simple idea for dragging a form without a control box. Comments
No comments yet — be the first to post one!
Post a Comment