[boudyonline]

كود :

Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox1.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            textbox2.Focus()
        End If
    End Sub

Private Sub textbox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox2.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            button1.Focus()
        End If
    End Sub