以下程式碼單擊窗體後在滑鼠位置建立一個新的textbox。

OptionExplicit

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

DimTAsObject

StaticNumAsLong

"在本窗體內新增（可以是其他如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)