Exactly! Someone overlooked it maybe because it's not posted with the CODE tags...
Anyway, all credits go to some1uk03:
Code:
Option Explicit

Private Declare Function ReleaseCapture Lib "user32" () 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

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SendMessage Frame1.hWnd, &H112, &HF012&, 0
End Sub