Lotus Script中，怎样用win32api隐藏窗口上的菜单?

热心网友

1.Dec "user32.dll"()AsLongDeclareFunctionSetMenuLib"user32.dll"(ByvalhmenuAsLong,ByvalnewmenuAsLong)AsInteger2.SubHiddenMenu()DimhwndAsLonghwnd=GetActiveWindow()CallSetMenu(hwnd,0)EndSub