Dim menu As cMenu
Private Sub Form_Load()
'''' 初始化菜单并添加菜单项
Set menu = New cMenu
menu.CreateMenu
menu.AddItem "open", LoadPicture("images\open.ico"), "打开", MIT_STRING
menu.AddItem "save", LoadPicture("images\save.ico"), "保存", MIT_STRING
menu.AddItem "print", LoadPicture("images\print.ico"), "打印", MIT_STRING
menu.AddItem "find", LoadPicture("images\find.ico"), "查找", MIT_STRING
menu.AddItem "sep1", LoadPicture(), "", MIT_SEPARATOR
menu.AddItem "undo", LoadPicture("images\undo.ico"), "撤消", MIT_STRING
menu.AddItem "redo", LoadPicture("images\redo.ico"), "重复", MIT_STRING
menu.AddItem "sep2", LoadPicture(), "", MIT_SEPARATOR
menu.AddItem "cut", LoadPicture("images\cut.ico"), "剪切", MIT_STRING
menu.AddItem "copy", LoadPicture("images\copy.ico"), "复制", MIT_STRING
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
