How to move a form without a title bar

How to move a form without a title bar

This tip demonstrates how you can allow a form to be moved using the mouse without using the title bar. In this example, you can click anywhere on the form and drag it as if you are using the title bar. This code can be useful in conjunction with programs that hide the title bar, i.e. clocks.

Declarations

Add the following code to the declarations section of a form

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 Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Add this code to the form's MouseMove procedure:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, _
HTCAPTION, 0&)
End If
End Sub