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)