Private Declare Function SetCapture Lib "user32" Alias "SetCapture" _
      (ByVal hwnd As Long) As Long
 
Private Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () _
  As Long
 
Private Sub Form_Load()
     SetCapture Me.hWnd
End Sub
 
Private Sub Form_QueryUnload()
    ReleaseCapture
End Sub