________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

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