Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition 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 Const MF_BYPOSITION As Long = &H400& 

Private Sub UserForm_Initialize() 
Dim hwnd As Long 
Dim i As Long 

    hwnd = FindWindow(vbNullString, Me.Caption) 
    If hwnd <>  0  Then 
        For i =  0  To  2  
            Call RemoveMenu(GetSystemMenu(hwnd,  0 &),  0 &, MF_BYPOSITION) 
        Next 
    End If 
End Sub