مساعده بسيطه بخصوص textbox بالفيجوال بيسك

هذا الكود باعتبار أن مجموعة التكست لديك هى

(Text1(3) , Text1(2) , Text1(1) ,Text1(0 ,...........
 

Private Sub Command1_GotFocus()
For i = 0 To Text1.Count - 1
Text1(i).Locked = True
Next i
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Print Index
If Index = Text1.Count - 1 Then Command1.SetFocus: GoTo 100
Text1(Index + 1).SetFocus
100 End Sub

وهذا كود آخر أفضل منه

لأن السابق يسمح للمستخدم بالكتابة فى أى تكست اذا أعاد الضغط عليه

Dim PRES(9) As Integer
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Print Index
If PRES(Index) = 1 Then Text1(Index).Locked = True: GoTo 100
PRES(Index) = 1
If Index = Text1.Count - 1 Then Command1.SetFocus: GoTo 100
Text1(Index + 1).SetFocus
100 End Sub

أليس هذا هو ما تريد؟

ان كان كذلك فليتك توضح طلبك أكثر

تفضل أخي الكريم 

هذا الكود 

Private Sub Form_Load()
For i = 0 To 4
    Text1(i).MaxLength = 1
Next
End Sub


Private Sub Text1_Change(Index As Integer)
On Error Resume Next
    If Text1(Index).Text <> "" Then Text1(Index + 1).SetFocus
End Sub

ألف شكر لجميع الإخوة المثال بالمرفقات

الانتقال لمربع النص الثاني.rar