VB 怎么把list列表加载菜单

lsit1列表中有以下数据：
123
123
423
123
123
43

要求某个菜单按钮点击后也按照LIST顺序显示对应菜单
123
123
423
123
123
43

先用菜单编辑器自定义一个菜单 标题：menu 名称：menu 可见：勾去掉
menu下建个子菜单 标题：- 名称：AA

以下是代码

Private Sub Command1_Click()
For n = 1 To AA.Count - 1
Unload AA(n)
Next
For n = 0 To List1.ListCount - 1
Load AA(AA.Count)
AA(AA.Count - 1).Caption = List1.List(n)
Next
Me.PopupMenu menu
End Sub

先可做一菜单数组,让其不显示,然后,比如:打开了最后的一个文件,就将其加入,让其显示,就这个思路