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
Share the Post:
data observability

Data Observability Explained

June 8, 2023

Data is the lifeblood of any successful business, as it is the driving force behind critical decision-making, insight generation, and strategic development. However, due to its intricate nature, ensuring the

Heading photo, Metadata.

What is Metadata?

June 1, 2023

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular

XDR solutions

The Benefits of Using XDR Solutions

May 24, 2023

Cybercriminals constantly adapt their strategies, developing newer, more powerful, and intelligent ways to attack your network. Since security professionals must innovate as well, more conventional endpoint detection solutions have evolved

Show More