[ابراهيم ايبو]

السلام عليكم اخي الكريم

تفضل هذا الكود 

كود :

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       If TextBox1.Text = TextBox1.Text.Trim & (Space(2)) Then ' اذا كان النص مع القص زائد فراغين
           TextBox1.Text = TextBox1.Text.Trim & (Space(1)) ' قص النص وضع له فراغ واحد
           TextBox1.Select(TextBox1.TextLength, 0) ' أختر طول النص كله ولمسافة صفر
           TextBox1.Focus()
       End If

   End Sub