Wyszukiwanie tekstu w richtextbox bez rozróżniania wielkości liter

0

Witam.
Mam taki kod na wyszukiwanie tekstu (we wszystkich zakładkach aplikacji), niestety on szuka "identycznego tekstu" , a chciałbym by on wyszukiwał tekst bez względu na to czy jest napisany z małej literki, czy z dużej...

np "Witam" lub "WiTaM" czy "wiTAM" to i tak ma znaleźć słowo "witam".

Co muszę dodać w tym kodzie ?

   Dim SearchText As String = TextBox1.Text
        Dim ctrl, ctrl2 As Control
        For Each ctrl In TabControl1.Controls
            If TypeOf (ctrl) Is TabPage Then
                Dim page As TabPage = ctrl
                For Each ctrl2 In page.Controls
                    If TypeOf (ctrl2) Is RichTextBox Then
                        Dim box As RichTextBox = ctrl2
                        Dim pos As Integer = box.Text.IndexOf(SearchText)
                        If (pos >= 0) Then
                            box.SelectionStart = pos
                            box.SelectionLength = SearchText.Length
                            TabControl1.SelectedTab = box.Parent
                            box.SelectionColor = Color.Red
                            box.SelectionFont = New Font(box.Font, FontStyle.Bold)
                            box.Focus()
                            Exit Sub
                        End If
                    End If
                Next
            End If
        Next
1
Dim pos As Integer = box.Text.IndexOf(SearchText, StringComparison.InvariantCultureIgnoreCase)

Coś takiego chyba powinno zadziałać.

1 użytkowników online, w tym zalogowanych: 0, gości: 1