[RESOLVED] Dragging Windows/Forms Using Their Body

[bulletrick]

Guys, to drag a window, we need grip the titlebar, right?

How can I do the same while gripping the body of a form?

Thanks guys!

[Hack]

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 Declare Sub ReleaseCapture Lib "User32" ()
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Const WM_NCLBUTTONDOWN = &HA1
    Const HTCAPTION = 2
    If Button = 1 Then
        ReleaseCapture
        SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If
End Sub