' Linke Maustaste wurde im Nicht-Clientbereich der Form betätigt
Private Const WM_NCLBUTTONDOWN As Long = &HA1&
' Die Position im Nicht-Clientbereich ist die Titelleiste.
Private Const HTCAPTION As Long = 2&
 
Private Declare Sub ReleaseCapture Lib "User32" ()
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal _
  hWnd As Long, ByVal Message As Long, ByVal wParam As Long, ByRef lParam As _
  Any) As Long
 
'Verschieben der Form mit dem Mauszeiger
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  If Button = vbLeftButton Then
    Call ReleaseCapture
    Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&)
  End If
End Sub