本功能只在5.0,6.5.7.0 Notes客户端版本中测试通过,因为客户端是基于C++的，而8.0,8.5的客户端是基于Eclipse的，所以未测试该功能是否可行。
分两个热点：
在整个form中要定一个全局变量

Dim hmenu As Long

热点1：（隐藏菜单栏）

Declare Function GetActiveWindow Lib "user32.dll" () As Long
Declare Function GetMenu Lib "user32.dll" ( Byval hmenu As Long) As Integer
Declare Function SetMenu Lib "user32.dll" ( Byval hmenu As Long, Byval newmenu As Long ) As Integer
Sub Click(Source As Button)
Dim hwnd As Long
hwnd = GetActiveWindow()
hmenu=GetMenu(hwnd) 
Call SetMenu(hwnd,0)
End Sub

热点2：（显示菜单栏）

Declare Function GetActiveWindow Lib "user32.dll" () As Long
Declare Function GetMenu Lib "user32.dll" ( Byval hmenu As Long) As Integer
Declare Function SetMenu Lib "user32.dll" ( Byval hmenu As Long, Byval newmenu As Long ) As Integer 
Sub Click(Source As Button)
Dim hwnd As Long
hwnd = GetActiveWindow() 
If hmenu Then
Call SetMenu(hwnd,hmenu)
Else
Msgbox "现在菜单正在显示"
End If
End Sub