Dim index As Integer = 0
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
If (Not index >= RichTextBox2.Lines.Length - 1) Then
txt_myip.Text = RichTextBox2.Lines(index)
index += 1
Else
index = 0
Timer1.Stop()
End If
End Sub