如何动态的添加子菜单

Question

各位高手：
  请教您们，如何在运行阶段动态的添加子菜单？解决后一定给分！谢谢1

Answer 1

http://www0.ccidnet.com/school/software/2003/05/26/134_8804.html

Answer 2

'菜单项的属性设置如下:
'标题           名称         内缩符号     可见性    有效   下标
'APPLICTION     APPS            无         TRUE     TRUE    无
'ADDAP          AddAp           1          TRUE     TRUE    无
'DELETEAP       DelAp           1          TRUE     TRUE    无
'空白           AppMenu         1          FALSE    FALSE   0Dim Menucounter As IntegerPrivate Sub AddAp_Click()
msg$ = "Enter file path:"
temp$ = InputBox$(msg$, "Add Application")
Menucounter = Menucounter + 1
Load AppMenu(Menucounter)
AppMenu(Menucounter).Caption = temp$
AppMenu(Menucounter).Visible = True
AppMenu(Menucounter).Enabled = True
End Sub
Private Sub AppMenu_Click(Index As Integer)
On Error GoTo errhandle
x = Shell(AppMenu(Index).Caption, 1)
errhandle:
Debug.Print Index
End SubPrivate Sub DelAp_Click()
Dim n As Integer
On Error GoTo errhandle
If Menucounter = 0 Then Exit Sub
msg$ = "Enter number to delete:"
n = InputBox(msg$, "delete application")
If n > Menucounter Or n < 1 Then
MsgBox "超出范围"
Exit Sub
End If
Unload AppMenu(n)
Menucounter = Menucounter - 1
errhandle:
Exit Sub
End Sub