تغییر فونت اندازه رنگ یک متغیر

[ghaem-soft]

سلام
من با استفاده از یک حلقه تمام item های یک listbox را به richtextbox تبدیل می کنم


حال می خواهم اولین آیتم با اندازه کوچک و رنگ آبی و دومین آیتم با اندازه بزرگ و رنگ مشکی سومین آیتم با اندازه کوچک و زنگ آبی و...



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

[aliagamon]

Dim type As Boolean = True
For Each listBoxItem As Object In ListBox1.Items
RichTextBox1.SelectionStart = RichTextBox1.TextLength
RichTextBox1.SelectionLength = 0
If type Then
RichTextBox1.SelectionColor = Color.Blue
Else
RichTextBox1.SelectionColor = Color.Black
End If
RichTextBox1.AppendText(listBoxItem.ToString() + vbNewLine)
RichTextBox1.SelectionColor = RichTextBox1.ForeColor
type = Not type


Next