请问如何动态增加菜单项，就像word中文件菜单里最近使用过的文件

Question

Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPublic Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long

Answer 1

上面的方法太麻烦看我的：
先做一个菜单，及主要设置索引为0然后
Private Sub Form_Load()
      Load mnuA(1)
      Load mnuA(2)
      mnuA(1).Caption = 2
      mnuA(2).Caption = 3
End Sub
看看是不是有三个菜单了？

Answer 2

谢谢各大侠相助。
我认为Sam_E的方法较为方便