Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal _
      hWnd As Long, ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu Lib "user32" (ByVal _
      hMenu As Long, ByVal nPosition As Long, ByVal _
      wFlags As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal _
      hWnd As Long) As Long

Private Const SC_CLOSE = &HF060
Private Const MF_BYCOMMAND = &H0

Private Sub Form_Load()
  optButton(1).Value = True
End Sub

Private Sub optButton_Click(Index As Integer)
  Select Case Index
    Case 0
      GetSystemMenu Me.hWnd, True
    Case 1
      DeleteMenu GetSystemMenu(Me.hWnd, False), _
          SC_CLOSE, MF_BYCOMMAND
  End Select
  DrawMenuBar Me.hWnd
End Sub