Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1 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 Long) As Long 'Codice da copiare nell'evento MouseDown della finestra da spostare Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ x As Single, Y As Single) If Button = 1 Then Dim ReturnVal As Long x = ReleaseCapture() ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If End Sub |