以下代码单击窗体后在鼠标位置创建一个新的textbox。
OptionExplicitPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimTAsObjectStaticNumAsLong'在本窗体内添加（可以是其他如picturebox等）；
第一个参数是要添加的控件，第二个是控件名SetT=Me.Controls.Add("VB.textbox","Text"&Num)'当然还有其他属性一样的设置，如高度宽带等T.Text="Text"&Num'指定控件文本内容T.Visible=True'设置控件可见T.Left=X'设置左边距离T.Top=Y'设置顶部距离Num=Num+1'防止控件名重复EndSub如果要在其他控件添加，就在第三个参数填上容器如在picture1里面添加：
SetT=Me.Controls.Add("VB.textbox","Text"&Num,Picture1)
