VB动态添加控件

经验证没有错误。者森。

Private Sub Form_Load()

Set Timer1 = Controls.Add("歼培vb.timer", "首改亩Timer1")

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Timer

End Sub

Private WithEvents Object As TextBox

Private Sub Command1_Click()

For i = 1 To 3

Set Object = Form1.Controls.Add("VB.textbox", "text" &i)

With Object

.Visible = True

.Text = "搭物动唤枝判和改态文本"

.Width = 1000

.Height = 500

.Top = Form1.Height / 2 - 100

.Left = 1000 * i

End With

Next i

End Sub

---