Start moving a form

If you have created a form without a title bar, your users will still need some way to move the form. The code below lets you create a 'fake' title bar, or another area where the user can click and move the form as usual

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

'// use this code to start moving

ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, 2, 0&