• Home
 · 
• Coding Standards
 · 
• Borderless Form Drag

Borderless Form Drag

To drag a borderless form.
Very Easy and Simple.
Just a few lines of code.

Rate Borderless Form Drag

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Dim DragX As Long, DragY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DragX = X: DragY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Form1.Move Form1.Left + X - DragX, Form1.Top + Y - DragY
End If
End Sub