أريد كود الانتقال من TextBox إلى TextBox بواسطة زر Enter

السلام عليكم ورحمة الله وبركاته

جرب أخي الكريم هذا الكود.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

يوجد مثال مرفق.

تحياتي

أبو عبد الله عمر

txt2txt.rar

استخدم هذا الكود

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

Text2.SetFocus

end sub