Dim s As String = "abc" & vbTab & "def" & vbTab & "GHQ" & vbCrLf _ & "123" & vbTab & "456" & vbTab & "789" RichTextBox1.Text = s RichTextBox2.Text = s RichTextBox2.SelectAll() RichTextBox2.SelectionTabs = New Integer() {0, 80, 160, 240} RichTextBox2.Select(0, 0)