请教：为窗体添加菜单 mFast，以及 mFast 的子菜单 mmFast，并将 mmFast 的索引设置为 0杂弄啊！
谢谢大家了
程序代码：
Private Sub AddMenu()
hMenu = CreateMenu()
hmenupopup = CreatePopupMenu()
result = AppendMenu(hmenupopup, MF_STRING, 300, "新建") '1
result = AppendMenu(hmenupopup, MF_STRING, 301, "保存") '2
result = AppendMenu(hmenupopup, MF_STRING, 302, "另存为1") '3
result = AppendMenu(hmenupopup, MF_STRING, 303, "另存为2") '4
result = AppendMenu(hmenupopup, MF_SEPARATOR, 304, "")
result = AppendMenu(hmenupopup, MF_STRING, 305, "另存为3") '5
result = AppendMenu(hMenu, MF_POPUP, hmenupopup, "文件")
oldwinproc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf OnMenu
End Sub
