VB 添加文本框的命令

vb6如下：

Private Sub Command1_Click()

 Dim txt As Object

 Static n As Integer, x As Long

 n = n + 1

 Set txt = Controls.Add("vb.textbox", "txok" & n, Me)

 With txt

  .Move x, 500

  .Text = "Hi,textbox"

  .Visible = True

 

 End With

 x = x + 2000

End Sub

（1）先在窗口上放一个text1，选中它，击右键，选“复制”

（2）再在窗口上单击右键，选“粘贴”，即形成了一个文本框数组

（3）重复第二步，多粘贴几次，即可产生具有多个元素的文本框数组

---