Private 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 Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private ihWnd As Long
'-----------------------------------------------------------------------
Private Sub UserForm_Initialize()
    ihWnd = FindWindow(vbNullString, Me.Caption)
    SetWindowPos ihWnd, 0, Me.Left, Me.Top, 54, Me.Height, 0
End Sub

Private ihWnd As Long

ihWnd = FindWindow(vbNullString, Me.Caption)
SetWindowPos ihWnd, 0, Me.Left, Me.Top, 54, Me.Height, 0

Private Const GWL_STYLE As Long = -16&
Private Const GWL_EXSTYLE = -20&

Private Const WS_CAPTION As Long = &HC00000
Private Const WS_BORDER As Long = &H800000
Private Const WS_EX_LAYERED = &H80000
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_NOOWNERZORDER = &H200
Private Const SWP_NOZORDER = &H4
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Type POINTAPI
    x As Long
    Y As Long
End Type

Private Declare Function DrawMenuBar Lib "user32.dll" ( _
                                     ByVal hWnd As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private 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 Long

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Private Declare Function AnimateWindow Lib "user32" (ByVal hWnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Private Declare Function GetCursorPos& Lib "user32.dll" (lpPoint As POINTAPI)
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
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 ghWnd_Info As Long
Private ihWnd As Long
'-----------------------------------------------------------------------------

Private Sub UserForm_Activate()

'скрыть рамку Windows
'-----------------------------------------------------------------------------
    ghWnd_Info = FindWindow("ThunderDFrame", Me.Caption)

    Dim iStyle As Long
    iStyle = GetWindowLong(ghWnd_Info, GWL_STYLE)
    iStyle = iStyle And Not WS_CAPTION And Not WS_BORDER

    SetWindowLong ghWnd_Info, GWL_STYLE, iStyle
    SetWindowLong ghWnd_Info, GWL_EXSTYLE, 0
    DrawMenuBar ghWnd_Info
    
'настроить ширину формы
'-----------------------------------------------------------------------------
    ihWnd = FindWindow(vbNullString, Me.Caption)
    SetWindowPos ihWnd, 0, Me.Left, Me.Top, 54, Me.Height, 0

End Sub

Private Sub UserForm_Activate()
    Me.Width = 54
End Sub