• Home
 · 
• Windows System Services
 · 
• Lets you move forms by Clicking on them and Draging

Lets you move forms by Clicking on them and Draging

Lets you move forms by Clicking on them and Draging

API Declarations


'by Wassaf inc. Lebanon
'http://www.wassaf.net
'[email protected]
'Move form By clicking on it
'all rights are reserved for Wassaf inc. under license 246631
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
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2



Rate Lets you move forms by Clicking on them and Draging

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_DblClick()
End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
End Sub