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