Setting Different Color For Each Line In Textbox?

My Code:
For Each dr In dt.Rows()
If (cnt = 0) Then
tx_control2.Text = dr("Name").ToString.Trim
Else
tx_control2.Text = tx_control2.Text + Environment.NewLine + dr("Name").ToString.Trim
End If
cnt = cnt + 1
Next ' for row

Using above code to add all names from datatable to Textbox using Environment.NewLine. This is adding all names in Textbox. Now I want different color for alternate names. I used :
tx_control2.ForeColor = Color.Maroon
But above solution change the color of all names.