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

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?

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

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