• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Move a form that has not title bar, or one that does by clicking anywhere on form

Move a form that has not title bar, or one that does by clicking anywhere on form

Move a form that has not title bar, or one that does by clicking anywhere on form

API Declarations


Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2




Rate Move a form that has not title bar, or one that does by clicking anywhere on form

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim lngReturnValue As Long
   If Button = 1 Then
      Call ReleaseCapture
      lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub