Find Dialog in notepad

السلام عليكم

انا شغال حاليا على مشروع

notepad

و عندي مشكلة في النافذة الخاصة بعملية البحث حيث انة لا يتم تظليل النث الذي يتك البحث عنه إلا بعد اغلاق النافذة الخاصة بالبحثب بينما انا اريدة ان يظلل النص بدون اغلاق نافذة البحث

و هذا هو الكود الخاص بالبحث

 Dim strIndex As Int16 = Application.OpenForms.Item(1).Controls.Item(0).Text.IndexOf(findtxt.Text)
Dim rtf As RichTextBox = CType(Application.OpenForms.Item(1).Controls("RichTextBox1"), RichTextBox)
Application.OpenForms.Item("txtForm").Focus()
rtf.SelectionStart() = strIndex
            rtf.Select(rtf.SelectionStart(), findtxt.Text.Length)