• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Drag a form without API code

Drag a form without API code

Drag a form without API code

API Declarations


Dim Moving As Boolean
Dim cX, cY




Rate Drag a form without API code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Moving = True
If Moving = True Then
   cX = X
   cY = Y
End If
End Sub

Private Sub cap_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Moving = True Then
   Me.Left = Me.Left - (cX - X)
   Me.Top = Me.Top - (cY - Y)
End If
End Sub

Private Sub cap_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Moving = False
End Sub