|
Public Declare Function ReleaseCapture _
Lib "user32" () As Long Public Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Global Const WM_NCLBUTTONDOWN = &HA1 Global Const WM_LBUTTONCLK = &H202 Global Const WM_LBUTTONDBLCLK = &H203 Global Const WM_RBUTTONUP = &H205 Global Const WM_MOUSEMOVE = &H200 Global Const HTCAPTION = 2 'In form MouseMove event inserire questo codice If Button <> 0 Then ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, _ HTCAPTION, 0& End If |