Private Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () _
  As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
' Konstantendeklaration
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  Dim ret As Long
 
  ReleaseCapture
  ret = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End Sub