Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, _
      ByVal bRevert As Integer) As Integer
 
    Dim Handle_Renamed As Integer
    Public Const MF_BYPOSITION As Integer = &H400
    Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Integer, ByVal _
      nPosition As Integer, ByVal wFlags As Integer) As Integer

        Handle_Renamed = GetSystemMenu(Handle.ToInt32, False)
 
        DeleteMenu(Handle_Renamed, 0, MF_BYPOSITION)
        DeleteMenu(Handle_Renamed, 2, MF_BYPOSITION)
        DeleteMenu(Handle_Renamed, 3, MF_BYPOSITION)
        DeleteMenu(Handle_Renamed, 4, MF_BYPOSITION)