Excel VBA/ Форма / Добавить кнопку свернуть окно

[sernik]

Добрый день Уважаемые форумчане.

Нашел код, который добавляет в форму кнопки свернуть и развернуть во все окно, кроме стандартного крестика.
Подскажите пожалуйста, можно переделать код, что бы кнопки "развернуть во все окно" не было, а только остались свернуть и закрыть? Максимум на что меня хватило(что бы код не выдавал ошибки), это закомментить одну строку, что бы кнопка стала не активна, но все равно есть на форме.

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
    lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
    nIndex 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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000

Private Sub UserForm_Activate()
    Dim lngFrmHndl As Long
    Dim lngStyle As Long
    lngFrmHndl = FindWindow(vbNullString, Me.Caption)
    lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE)
    lngStyle = lngStyle Or WS_SYSMENU
    lngStyle = lngStyle Or WS_MINIMIZEBOX
    'lngStyle = lngStyle Or WS_MAXIMIZEBOX
    SetWindowLong lngFrmHndl, GWL_STYLE, lngStyle
    DrawMenuBar lngFrmHndl
End Sub