或者是用記事本把*.frm文件打開，找到
Begin VB.Form <窗體名稱>
......其他窗體屬性......
-----------------------------------------------
Begin VB.Menu <首級菜單欄1名稱>
Caption = "<菜單欄1標題>"
Begin VB.Menu <第二級菜單欄1名稱>
Caption = "<標題1>"
End
Begin VB.Menu <第二級菜單欄2名稱>
Caption = "<標題2>"
End
End
Begin VB.Menu <首級菜單欄2名稱>
Caption = "<標題2>"
End
...............
-----------------------------------------------
End
將這壹部分描述菜單的內容復制到每個窗體的這個位置。
或者是在窗體中建立壹個菜單，只有壹級壹個菜單，“index（索引）”填寫“0”，名稱是Menu
在form_load事件中寫上：
Dim I%
Dim S
S = Array("", "menu1", "menu2", "menu3", "menu4", "menu5")
For I = 1 To 5
Load Menu(I)
Menu(I).Caption = S(I)
Next I
這個方法可以自己去體會體會