تغییر رنگ خط به خط در تکست باکس

[Argonod]

سلام

کسی از دوستان اطلاع داره چطوری میشه یک متن مثلا 4 خطی در یک تکست باکس رو با رنگهای مشخصی رنگی کرد؟
مثلا خط اول آبی
خط دوم قرمز
....

آیا اصلا این امکان وجود داره؟
ممنون میشم یه کمکی بکنید.

[shahrdar]

اگه تو richbox باشه خیلی راحته

[visual_basic]

اگه تو richbox باشه خیلی راحته

عزیز چه جوری؟

[Argonod]

اگه تو richbox باشه خیلی راحته

اگه ممکنه یه مثال بزنید ممنون میشم

[shahrdar]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 1 To R.Lines.Length Step 2
SelectLine(i)
R.SelectionColor = Color.Red
Next
End Sub
Public Sub SelectLine(ByVal NumLine As Integer)
Dim AvaleInKhat As Integer
Dim AvalKhatbadi As Integer
Dim tedad As Integer = R.GetLineFromCharIndex(R.TextLength)
If tedad < NumLine Then
Exit Sub
End If
'مقعیت همین خط
AvaleInKhat = r.GetFirstCharIndexFromLine(NumLine - 1)
'مقعیت خط بدی
AvalKhatbadi = r.GetFirstCharIndexFromLine(NumLine)

If tedad = NumLine Then
r.Select(AvaleInKhat, r.TextLength)
Exit Sub
End If

r.Select(AvaleInKhat, AvalKhatbadi - AvaleInKhat)
End Sub