Here is a code snippet that I use for removing the titlebar of a form and then allow it to be move. Use a regular sizeable form. Option Explicit'API Calls Used To Remove The Title Bar From Window (Make A Sizeable Borderless Form)Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ ( ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ ( ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Const GWL_STYLE = (-16) Private Const WS_DLGFRAME = &H400000 'API Calls Used To Move A Form With The MousePrivate Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ ( ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As LongPrivate Const HTCAPTION = 2 Private Const WM_NCLBUTTONDOWN = &HA1 Private Sub Form_Load() 'ERASE the Title Bar SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) + WS_DLGFRAME End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Move the form with the Left Mouse Button If Button = vbLeftButton Then Me.MousePointer = vbSizeAll Call ReleaseCapture Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& Me.MousePointer = vbArrow End IfEnd SubPrivate Sub Command1_Click() Unload MeEnd Sub
|