Private Sub TXB_1_TextChanged(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles TXB_1.TextChanged
        BTN_1.Select()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        BTN_1.Select()
    End Sub

Freundliche Gr??e
Detlef