Private Sub Find_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Find.Click
        Suche()
    End Sub
 
    Private startSearch As Boolean = True
    Private startPos As Integer
    Private endPos As Integer
 
    Private Sub Suche()
 
        Dim FindFlags As Short
        Dim Position As Integer
        Dim repeat As Boolean
        Dim start As Integer
 
        If startSearch Then
            startPos = dtp.SelectionStart
            endPos = dtp.TextLength
            startSearch = False
            start = startPos
        Else
            start = dtp.SelectionStart + 1
        End If
 
        dtp.SelectionLength = 0
 
        If Suchen.Text <> "" Then
            Do
                repeat = False
                FindFlags = Gross.CheckState * 4 + Wort.CheckState * 2
                Position = dtp.Find(Suchen.Text, start, endPos, FindFlags)
                dtp.Focus()
                If Position < 0 Then
                    If startPos > 0 Then
                        Dim dr As DialogResult = MsgBox("Text not found" & _
                          vbCrLf & "Restart at beginning of text?", _
                          MsgBoxStyle.YesNo)
                        If dr = DialogResult.Yes Then
                            start = 0
                            endPos = startPos
                            startPos = 0
                            repeat = True
                        Else
                            startSearch = True
                            Return
                        End If
                    Else
                        MsgBox("Text not found", MsgBoxStyle.OKOnly)
                        startSearch = True
                        Return
                    End If
                End If
            Loop While repeat
        Else
            MsgBox("Enter search text")
        End If
 
    End Sub
 
    Private Sub dtp_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles dtp.Click
        startSearch = True
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist