请教关于动态加载的菜单问题?
请问如何在菜单中动态加载某目录下的[文件夹]作为菜单项，并加载文件夹下的[快捷方式]作为相应菜单项的下级菜单？（最好能在菜单中显示相应的快捷方式的图标）
就像 开始 菜单的 程序 一样可以加载程序目录下的文件夹，并相应加载快捷方式一样。
[解决办法]
请看VB动态增减菜单 http://www0.ccidnet.com/school/software//2003/05/26/134_8804.html
只是你加载的不是文件，而是文件夹，这也是可以的。要利用目录列表框（DirListBox）Dir的属性一项一项的读出来，然后添加到你新增加的菜单上面。
[解决办法]
事先定义菜单数组,并写好它的响应代码;
Private Sub mnuRecentFiles_Click(Index As Integer)
Private Sub MakeRecentFileMenu()
Dim nFileCount As Integer
If pcolRecentFiles.Count > 0 Then
frmMain.mnuBar17.Visible = True
End If
For nFileCount = 1 To pcolRecentFiles.Count
If nFileCount - 1 > 0 Then
Load frmMain.mnuRecentFiles(nFileCount - 1)
End If
frmMain.mnuRecentFiles(nFileCount - 1).Caption = _
nFileCount & " " & pcolRecentFiles(nFileCount)
frmMain.mnuRecentFiles(nFileCount - 1).Visible = True
Next nFileCount
End Sub
