Code:
Private Sub SortColour()
Dim ObjectList As New List(Of String)
For i As Integer = 1 To lstObjects.Items.Count - 1
ObjectList.Add(lstObjects.Items(i).ToString)
Next
Dim L As Integer = rtbRoom.TextLength
For Each word As String In ObjectList
Dim lastindex = rtbRoom.Text.LastIndexOf(word)
Dim index As Integer = 0
While index < lastindex
rtbRoom.Find(word, index, L, RichTextBoxFinds.None)
rtbRoom.SelectionColor = Color.Lime
index = rtbRoom.Text.IndexOf(word, index) + 1
End While
Next
End Sub
HI, looking for some friendly advice.
Can anyone please tell me how I can get the above code to be NOT case sensitive.
I've tried all sorts but can't fathom it. Any help will be greatly appreciated.