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
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
'161
Private Sub Form_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN,
HTCAPTION, 0)
End If
End Sub