Kod:
Dim aranan As String Dim s As Integer aranan = TextBox1.Text If aranan = "" Then Exit Sub End If s = Form1.RichTextBox1.Find(aranan) Form1.RichTextBox1.Focus() If s = -1 Then MsgBox("Aranan metin bulunanadı..") End If
bu kod richtextbox ta aranan değer varsa focusluyor notepad daki gibi.
ben aranan değerden birden cok varsa sonrakini bul deyince bir sonrakini bulsun istiyorum (not defteri ile aynı olacak yani)
__________________