致于建立控件请参考:
set CtrlObjectName=FormName.Controls.Add("ProgID","Key"[,ContainerName])
举例建立一个alabel和atextbox
dim alabel as label
set alabel=form1.controls.add("vb.label","areallynewlabel")
dim atextbox as textbox
set atextbox=form1.add("vb.textbox","areallynewtextbox")