Dim hMenu As Long
Private Sub Command1_Click() '隐藏
  SetMenu Me.hwnd, 0
  DrawMenuBar Me.hwnd
End SubPrivate Sub Command2_Click() '显示
  SetMenu Me.hwnd, hMenu
  DrawMenuBar Me.hwnd
End SubPrivate Sub MDIForm_Load()
  hMenu = GetMenu(Me.hwnd)
End Sub其中GetMenu,DrawMenuBar,SetMenu 是API函数。