Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load For Each q In Me.Controls.OfType(Of TextBox)() AddHandler q.Leave, AddressOf TextBoxes_Leave Next TextBox1.Text = "10" TextBox2.Text = "20" TextBox3.Text = "30" ActiveControl = TextBox3 End Sub