Private Declare Function GetSystemMenu Lib "User32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "User32" _
(ByVal hMenu 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 Const MF_BYPOSITION = &H400&
 
Private Sub Form_Load()
 
 Dim m_hWndParent As Long
 Dim hSysMenu As Long
 m_hWndParent = Me.hWnd
 hSysMenu = GetSystemMenu(m_hWndParent, 0)
 If (hSysMenu <> 0) Then
  SystemMenuCount = GetMenuItemCount(hSysMenu)
  RemoveMenu hSysMenu, (SystemMenuCount - 1), MF_BYPOSITION
  RemoveMenu hSysMenu, (SystemMenuCount - 2), MF_BYPOSITION
 End If
 
End Sub