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

Charlie Frank

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.