怎么样通过变量创建text控件

Question

我想通过变量在窗体上创建text控件,请问怎么实现?
过程.1 通过text窗口输入变量
     2 创建新的text控件数等于刚才输入的变量.
     3 在窗体上显示text控件.

Answer 1

Dim obj As Object
  Dim s As String
  
  s = "text1"
  Me.Controls.Add "vb.textbox", s
  Set obj = Me.Controls(s)
  obj.Visible = TrueMSDN上有更多示例

Answer 2

还可以用load,你可以将text1的index设置为0，这样：    dim i
    for i=1 too 3
        load text1(i)
        text1(i).top=i * 500
        text1(i).left=0
        text1(i).visible=true
    next i