وارد کردن متنی در ریچ باکس با رنگی متفاوت

[parselearn]

با سلام
من میخوام متنی رو با رنگی متفاوت وارد ریچ تکست باکس کنم
نمونه کد کسی داره
در مورد ایجاد خط جدید هم در این شی کدی قرار بدید

[vbhamed]

سلام


With RichTextBox1

Dim sc&

sc = Len(.Text) + 2
.Text = .Text & vbCrLf & "This is a test"
.SelStart = sc
.SelLength = Len(.Text)

.SelColor = RGB(255, 0, 0)
.SelBold = True
.SelStart = Len(.Text)

End With



VbCrLf خط جدید اضافه می کند

[parselearn]

سلام
ممنون
اما من میخوام چند کلمه رو در این شی به رنگ متفاوت وارد کنم (دیکشنری)

کد زیر رو من نوشتم اما عملکرد درستی نداره



a = "Desktop"
b = " [Computer] "
c = "Program"
d = " [VB] "
With RichTextBox1
.Text = a & b & c & d
.SelStart = Len(a)
.SelLength = Len(b)
.SelColor = RGB(255, 0, 0)
.SelBold = True
.SelStart = Len(c)
.SelLength = Len(d)
.SelColor = RGB(255, 0, 0)
.SelBold = True
.SelStart = Len(.Text)
End With


لطفا راهنمایی کنید