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 |