Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Expertise: Beginner
Aug 11, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Move a Form by Clicking Anywhere on It

The following code allows you to move a form by clicking anywhere on the form and dragging it:
 Option Explicit
'define module level variables to store the 
last position of the form, the TOP and LEFT. Dim mlngInitialLeft As Long Dim mlngInitialTop As Long Private Sub Form_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single) 'If left button clicked on the form, store
the current 'form position into the module variables If Button = vbLeftButton Then mlngInitialLeft = X mlngInitialTop = Y End If End Sub Private Sub Form_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single) 'If mouse moved with LEFT button Down, 'move the form accordingly If Button = vbLeftButton Then Me.Left = Me.Left + (X - mlngInitialLeft) Me.Top = Me.Top + (Y - mlngInitialTop) End If End Sub
Jatin Shah
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date