第1个回答 2012-09-15
Dim t1 As TextBox, t2 As TextBox
Private Sub Command1_Click()
Set t1 = Controls.Add("vb.textbox", "T1")
Set t2 = Controls.Add("vb.textbox", "T2")
t1.Move 1000, 300, 500, 400
t1.Text = "abc"
t1.Visible = True
t2.Move 2000, 1000, 500, 400
t2.Text = "123"
t2.Visible = True
End Sub本回答被网友采纳