VB中怎么样动态生成按钮!!!!!!!!!!!!!!!!

Question

请问各位大哥：
      今天去面试遇到一个问题：
               怎么样在VB中动态的生成按钮，从而达到级联菜单！
例：
   一级菜单：
         公司产品
   二级菜单：
         诺基亚
         三星
         。（无限个）
这样如果用单个窗体来做的话要做无限个。这样不能实现！能否在同一个窗体中做到按钮也能级联下去？？？？？？？？？？（就如同子菜单一样）
急急！！！！！！！！！！！！！

Answer 1

Dim obj As CommandButton
    
    Set obj = Controls.Add("VB.CommandButton", "cmdTest")
    obj.Caption = "test"
    obj.Visible = True
    //设置obj的尺寸及位置
    obj.Left=
    obj.Top=
    obj.Width=
    obj.Height=

Answer 2

用按钮.Top,按钮.left,按钮.height和按钮.width,还有按钮.visible控制

Answer 3

另外最简单的是使用控件数组了
先建一个Command(0)
然后load Command(N) 
然后 Command(N).visible=true 
然后设置位置和Caption即可当然，如果你要关联到其他的数据上实现功能的话，
还可以使用Command(N).Tag来存储你需要的某些关键数据
然后在 
Sub Command_Click(Index as Integer) 事件中判断 Index 或者 Tag 即可实现所需功能