以下程式碼單擊窗體後在滑鼠位置建立一個新的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)
以下程式碼單擊窗體後在滑鼠位置建立一個新的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)