VB中在窗体上动态生成控件的代码。

Dim   WithEvents   cmdMyCommand   As   VB.CommandButton   
          Option   Explicit   
    
          Dim   WithEvents   ctlDynamic   As   VBControlExtender   
          Dim   WithEvents   ctlText   As   VB.TextBox   
          Dim   WithEvents   ctlCommand   As   VB.CommandButton   
          Dim   WithEvents   ctlCommandDel   As   VB.CommandButton   
          Private   Sub   ctlCommandDel_Click()   
                  Dim   i   As   Integer   
                    
                  Licenses.Remove   "MSComctlLib.TreeCtrl"   
                  If   MsgBox("是否删除所有控件",   vbYesNo)   =   vbYes   Then   
                  For   i   =   1   To   Form1.Controls.Count   
                          Controls.Remove   0   
                  Next   i   
                  End   If   
          End   Sub   
          Private   Sub   ctlCommand_Click()   
                  ctlText.Text   =   "你点击的是控制按钮"   
          End   Sub   
    
          Private   Sub   ctlDynamic_ObjectEvent(Info   As   EventInfo)   
                  If   Info.Name   =   "Click"   Then   
                          ctlText.Text   =   "你点击的条目是   "   &   _   
                                          ctlDynamic.object.selecteditem.Text   
                  End   If   
          End   Sub   
    
          Private   Sub   Form_Load()   
                  Dim   i   As   Integer   
                  Licenses.Add   "MSComctlLib.TreeCtrl"   
    
                  Set   ctlDynamic   =   Controls.Add("MSComctlLib.TreeCtrl",   _   
                                                  "myctl",   Form1)   
                  ctlDynamic.Move   1,   1,   2500,   3500   
                  For   i   =   1   To   10   
                          ctlDynamic.object.nodes.Add   Key:="Test"   &   Str(i),   _   
                                          Text:="Test"   &   Str(i)   
                          ctlDynamic.object.nodes.Add   Relative:="Test"   &   Str(i),   _   
                                          Relationship:=4,   Text:="TestChild"   &   Str(i)   
                  Next   i   
                  ctlDynamic.Visible   =   True   
    
                  Set   ctlText   =   Controls.Add("VB.TextBox",   "ctlText1",   Form1)   
                  ctlText.Move   (ctlDynamic.Left   +   ctlDynamic.Width   +   50),   _   
                                                  1,   2500,   100   
                  ctlText.BackColor   =   vbBlue   
                  ctlText.ForeColor   =   vbWhite   
                  ctlText.Visible   =   True   
    
                  Set   ctlCommand   =   Controls.Add("VB.CommandButton",   _   
                                                  "ctlCommand1",   Form1)   
                  ctlCommand.Move   (ctlDynamic.Left   +   ctlDynamic.Width   +   50),   _   
                                                  ctlText.Height   +   50,   1500,   500   
                  ctlCommand.Caption   =   "点击"   
                  ctlCommand.Visible   =   True   
                    
                  Set   ctlCommandDel   =   Controls.Add("VB.CommandButton",   _   
                                                  "ctlCommand2",   Form1)   
                  ctlCommandDel.Move   (ctlDynamic.Left   +   ctlDynamic.Width   +   50),   _   
                                                  ctlText.Height   +   650,   1500,   500   
                  ctlCommandDel.Caption   =   "删除所有控件"   
                  ctlCommandDel.Visible   =   True   
          End   Sub