devxlogo

Move a Form by Clicking Anywhere on It

Move a Form by Clicking Anywhere on It

The following code allows you to move a form by clicking anywhere on the formand dragging it:

 Option Explicit'define module level variables to store the 
last position of the form, theTOP and LEFT.Dim mlngInitialLeft As LongDim mlngInitialTop As LongPrivate 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 IfEnd SubPrivate 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 IfEnd Sub

devx-admin

Share the Post: