Private Const MF_BYPOSITION As Integer = &H400
Private Const MF_REMOVE As Integer = &H1000
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As IntPtr) As Integer
Private Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Integer) As Integer
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As IntPtr, _
ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Integer, _
ByVal nPosition As Integer, _
ByVal wFlags As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim menuHandle As Integer
Dim menuCount As Integer
menuHandle = GetSystemMenu(Me.Handle, 0)
If menuHandle > 0 Then
menuCount = GetMenuItemCount(menuHandle)
RemoveMenu(menuHandle, menuCount - 1, MF_REMOVE Or MF_BYPOSITION)
RemoveMenu(menuHandle, menuCount - 2, MF_REMOVE Or MF_BYPOSITION)
DrawMenuBar(Me.Handle)
End If
End Sub