Option Explicit
 
Public Declare Sub ReleaseCapture Lib "User32" ()
Public Declare Function SendMessage Lib "User32" _
  Alias "SendMessageA" (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Long, _
  lParam As Any) As Long
 
Public Const WM_NCRBUTTONDOWN = &HA4
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y _
  As Single)
  Dim lResult As Long
  If Button = 2 Then
    Call ReleaseCapture
    lResult = SendMessage(Me.hwnd, WM_NCRBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub

Man kann viel bewegen, auch wenn man sich nicht bewegen kann.