[ابراهيم النعيمي]

السلام عليكم

الحل كما مبين أدناه

إقتباس :If TextBox1.Text.Length > 1 Then
            TextBox1.Text = TextBox1.Text.Substring(0, 1).ToUpper() + TextBox1.Text.Substring(1)
            TextBox1.Select(TextBox1.Text.Length, 0)
        End If

باضافة السطر التالي

إقتباس :TextBox1.Select(TextBox1.Text.Length, 0)

تحياتي..