TextBox, событие окончания ввода текста

    Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated
 
    End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If Timer1.Enabled = True Then
            Timer1.Enabled = False 'Не даем таймеру "тикнуть"
            Timer1.Enabled = True
        Else
            Timer1.Enabled = True 'Запускаем таймер чтоб через n-ое время после окончания ввода запустить процедуру
        End If
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Start_Procedure 'Собственно, то что нам надо выполнить
        Timer1.Enabled = False
    End Sub

 Dim Key As Boolean = True
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        Key = True
        Timer1.Stop()
    End Sub
    Private Sub TextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp
        Key = False
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Key = False Then
            sender.Stop()
            Button1.Visible = True
        End If
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 3000 ' три раза мерцания курсора
        Button1.Visible = False
    End Sub

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            e.SuppressKeyPress = True
            TextBox2.Focus()
        End If
    End Sub