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函数。
不会吧,我试过应该没有问题,或者你将你意思说清楚一点。