[اسلام الكبابى]

كما يمكنك طبعآ عمل الكود الذى ذكره عبد العزيز البسكري
ولكن يفضل لك فى هذا البرنامج أوغيره (طالما عدد ال Text  كبير)
أن تسميهم باسم واحد( Text1 مثلآ) وفى خاصية ال  Index  سيعدل لك أسماءهم لتصبح هكذا   Text1(9) ,........................., Text1(2)  , Text1(1)  , Text1(0)
وتكتب الكود هكذا بدلآ من تكرار كتابته عدد كبير من المرات

PHP كود :

Private Sub Form_Activate()
Text1(Text1.Count - 1).MaxLength = 1
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Index = Text1.Count - 1 Then GoTo 100
I = Index
If Len(Text1(I)) = 0 Then Text1(I + 1).SetFocus
100 End Sub 


وطبعآ يمكن حذف كود ال FORM ACTIVATE 
ووضع خاصية ال MaxLengt  لآخر تكست (للTEXST1(9) ) تساوى 1