[walkady]

كود بسيط للتحكم فى محتويات التيكست بوكس 
بحيث يكون عدد 4 ارقام او حروف فى التكست فقط ثم الانتقال تلقائى الى التيكست التالى

 Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        If Len(TextBox1.Text) >= 4 Then
            Dim s() As String = (Me.TextBox1.Text.Trim).Split
            TextBox1.Text = s(s.Length - 1)(0) & s(s.Length - 1)(1) & s(s.Length - 1)(2) & s(s.Length - 1)(3)
            TextBox2.Select()
        End If
    End Sub