[ناجي إبراهيم]

السلام عليكم...

المعذرة على التدخل، و لكن لا تحتاج إلى كل ذلك الكود.

فتحديد الحد الأقصى لطول الإدخال في مريع النص لا يحتاج إلى كود، و إنما فقط ضبط الخاصية MaxLength على الحد الذي تريده (4 في هذا المثال).
أما الانتقال إلى المكون أو العنصر التالي في النافذة فمن الأفضل عدم تحديده بالاسم لأن ترتيب المكونات قد يتغير أثناء التصميم فتضطر إلى تغيير الكود.

مع ضبط الخاصية MaxLength على الحد الذي تريده، كل ما تحتاج إليه هو سطر واحد:

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
   If TextBox1.Text.Length = TextBox1.MaxLength Then Me.SelectNextControl(TextBox1, True, True, True, True)
End Sub

* لاحظ أيضاً أن هذا الكود سيعمل دون تعديل إذا قمت بتغيير قيمة الخاصية MaxLength إلى أي قيمة أخرى غير الـ 4.

نرجو الاستفادة و السلام.