Public Class Form1
Private WithEvents t As New Timer With {.Interval = 3000}
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
t.Start()
End Sub
Private Sub tAddTextBox_tick() Handles t.Tick
Me.Controls.Add(New TextBox() With {.Text = "something...", .Location = New Point(50, 50)})
t.Stop()
End Sub
End Class