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 Integer

    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

hWnd = FindWindow(vbNullString, Me.Caption)

If Val(Application.Version) <  9  Then
    hWnd = FindWindow("ThunderXFrame", Me.Caption)
Else
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
End If