Text1.Selstar=Len(Text1.Text)
TextBox1.SelectionStart = Len(TextBox1.Text)
TextBox2.SelectionStart = TextBox2.Text.Length - 1 TextBox2.Focus() TextBox2.ScrollToCaret()