Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    If Button = 1 Then
        Call ReleaseCapture  ' Release capture
        Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
        If Not WM_NCLBUTTONDOWN Then MsgBox "Hallo"
    End If
End Sub