Option Explicit

Public Enum enumSysMenu
    size_mn = 1
    move_mn = 2
    minimize_mn = 4
    maximize_mn = 8
    close_mn = 16
    restore_mn = 32
    seperator_mn = 64
End Enum

Private Const SC_SIZE As Long = &HF000
Private Const SC_MOVE As Long = &HF010
Private Const SC_MINIMIZE As Long = &HF020
Private Const SC_MAXIMIZE As Long = &HF030
Private Const SC_CLOSE As Long = &HF060
Private Const SC_RESTORE As Long = &HF120
Private Const MF_BYCOMMAND As Long = &H0
Private Const MF_SEPARATOR As Long = &H800

Private Declare Function apiRemoveMenu Lib "user32" Alias "RemoveMenu"
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As
Long
Private Declare Function apiGetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Public Function RemoveSysMenu(ByVal hWnd As Long, nMenus As enumSysMenu) As Long
    If (nMenus And size_mn) = size_mn Then
        RemoveSysMenu = apiRemoveMenu(apiGetSystemMenu(hWnd, False), SC_SIZE, MF_BYCOMMAND)
    End If
    If (nMenus And move_mn) = move_mn Then
        RemoveSysMenu = apiRemoveMenu(apiGetSystemMenu(hWnd, False), SC_MOVE, MF_BYCOMMAND)
    End If
    If (nMenus And minimize_mn) = minimize_mn Then
        RemoveSysMenu = apiRemoveMenu(apiGetSystemMenu(hWnd, False), SC_MINIMIZE, MF_BYCOMMAND)
    End If
    If (nMenus And maximize_mn) = maximize_mn Then
        RemoveSysMenu = apiRemoveMenu(apiGetSystemMenu(hWnd, False), SC_MAXIMIZE, MF_BYCOMMAND)
    End If
    If (nMenus And close_mn) = close_mn Then
        RemoveSysMenu = apiRemoveMenu(apiGetSystemMenu(hWnd, False), SC_CLOSE, MF_BYCOMMAND)
    End If
    If (nMenus And restore_mn) = restore_mn Then
        RemoveSysMenu = apiRemoveMenu(apiGetSystemMenu(hWnd, False), SC_RESTORE, MF_BYCOMMAND)
    End If
    If (nMenus And seperator_mn) = seperator_mn Then
        RemoveSysMenu = apiRemoveMenu(apiGetSystemMenu(hWnd, False), 0, MF_SEPARATOR)
    End If
End Function

Private Sub Command1_Click()
    Call RemoveSysMenu(Me.hWnd, close_mn + seperator_mn)
End Sub