Moving Forms without Title Bar...

[Mav505]

Can someone help me, by explaining to me how to remove the TitleBar, Controlbox, Min and Max Buttons from a form but still have the form moveable, or at least having the Title bar invisible, but still being able to move the form dragging any part of it.


Cheers

[HeSaidJoe]

'
'set the form's controlbox property = false
'set the form caption = ""

'Make A Titleless Form Moveable With Mouse Drag
'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:
'
	Dim lngReturnValue As Long
	   If Button = 1 Then
		Call ReleaseCapture
		lngReturnValue = SendMessage(Form1.hWnd, 				WM_NCLBUTTONDOWN, _
		HTCAPTION, 0&)
	End If

[HeSaidJoe]

stupid smilies..

HTCAPTION, 0&)

is HTCAPTION, 0& [closing bracket] )

[Mav505]

Thanks very much HSJ, it works brilliantly.