To make a form use a small toolbar-style title bar, set the form’s WS_EX_TOOLWINDOW extended style:
Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As LongDeclare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As LongPublic Const WS_EX_TOOLWINDOW = &H80&Public Const GWL_EXSTYLE = (-20)Declare Function SetWindowPos Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, _ ByVal wFlags As Long) As LongPublic Const SWP_FRAMECHANGED = &H20Public Const SWP_NOMOVE = &H2Public Const SWP_NOZORDER = &H4Public Const SWP_NOSIZE = &H1Private Sub Form_Load()Dim old_style As Long old_style = GetWindowLong(hwnd, GWL_EXSTYLE) old_style = SetWindowLong(hwnd, _ GWL_EXSTYLE, old_style Or _ WS_EX_TOOLWINDOW) SetWindowPos hwnd, 0, 0, 0, 0, 0, _ SWP_FRAMECHANGED Or SWP_NOMOVE Or _ SWP_NOZORDER Or SWP_NOSIZEEnd Sub