请问如何能够动态添加窗体下拉菜单中的项目，急！

Question

一般的做法是做几个菜单，隐藏，然后需要时显示。
你的客户怎么要求这么多，连菜单都自己定呀!
你可以先设好，然后再通过程序改名称嘛。
例如：
   设计时MI1的名称 ”增加“
   需要时改  MI1.caption="你的菜单"

Answer 1

建立一个新菜单,索引设为0,如:mnuFileRecent(0)增加菜单:
Load mnuFileRecent(mnuFileRecent.UBound + 1)
mnuFileRecent(mnuFileRecent.UBound).Caption = "新菜单名"删除菜单:
Dim i As Integer
For i = 1 To mnuFileRecent.UBound
    Unload mnuFileRecent(i)
Next i