زر الادخال

رقم زر Enter هو 13

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    Text2.SetFocus
End If
End Sub

انظر للمشاركة التالية لحدوث خطأ في هذه المشاركة

About your second question:

Private Sub Text1_Change()
If Right$(Text1.Text, 4) = "احمد" Then Text2.SetFocus
End Sub

الأخ hnhn

بخصوص سؤالك الثاني أليك الكود في الملف المرفق

إنتقال.zip

بالنسبة للسؤال الثاني اضف الكود التالي

Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then Text2.SetFocus
End Sub

اعتقد انه ممكن من خلال proprities ، انك تحدد عدد الارقام او الحروف اللي تبغي تدخلهم في MaxLenght ، وعلشان تنتقل إلى البوكس الثاني لازم تخلي ترتيبه يلي البوكس اللي انته تكتب فيه من خلال TapIndex .

salam

dear Manseeya

your answer is wrong because after you get to the max length how can the curser move automatically to the next textbox

x=len(text1.text)

this code puts the number of characters in text1 in the variable x

if it is 4 or more then move to text2 by the code

if x>=4 then text2.setfocus

and the whole thing goes automatically