//tohle definujes na formulari
Dim i As Integer = 0
//tohle provedes timerem
If richTextBox1.Lines.Count > i Then
	richTextBox2.Lines.Add(richTextBox1.Lines(i))
	i += 1
End If poradna.net
 poradna.net						
						

 VB.Net - VB 2008 - čtení řádků
				VB.Net - VB 2008 - čtení řádků			//tohle definujes na formulari
Dim i As Integer = 0
//tohle provedes timerem
If richTextBox1.Lines.Count > i Then
	richTextBox2.Lines.Add(richTextBox1.Lines(i))
	i += 1
End If