HideFormIco

Declare Sub ReleaseCapture Lib "user" ()
Declare Function SendMessage& Lib "user" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%,
lParam As Any)
Const WM_NCLBUTTONDOWN = &HA1
' In the Form's MouseDown event add this code:

Dim r%
If button = 1 Then
ReleaseCapture
r% = SendMessage(hWnd, WM_NCLBUTTONDOWN, 2, 0)
End If