Hi all,

Does anyone have any idea how to change the font in a checked list box for a specific index in the items collection?

Something like what i am trying below
Dim strsrch As String() = Split(Me.RichTextBox1.Text, " ")
Dim str As String
Dim index As Integer

For Each str In strsrch
For index = 0 To CheckedListBox1.Items.Count - 1
If InStr(Me.CheckedListBox1.Items.Item(index).ToString(), str) Then
Me.CheckedListBox1.SetSelected(index, True)
'Above works in that it selects the last ne foun but checked list does not
'allow multi select for some reason
me.CheckedListBox1.Items.???
' Me.CheckedListBox1.Items(index).forecolor = System.Drawing.Color.Red
End If

Next
Next