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 FindWindowA _
    Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) _
As Long

Private Const GWL_STYLE As Long = - 16 
Private Const WS_SYSMENU As Long = &H80000


Private Sub UserForm_Initialize()
Dim lOldStyle As Long
Dim lNewStyle As Long
Dim hW As Long

    hW = FindWindowA(vbNullString, Me.Caption)
    lOldStyle = GetWindowLong(hW, GWL_STYLE)
    lNewStyle = lOldStyle Xor WS_SYSMENU
    
    SetWindowLong hW, GWL_STYLE, lNewStyle
     
End Sub