If iRow > ListView1.InnerListView.ListItems.Count Or iRow = 0 Then
  iRow = 1
End If
iRow = lvw_Search(ListView1.InnerListView, sText.Text, iRow + 1)
If iRow > 0 Then
    ' Eintrag gefunden
    With ListView1.InnerListView
    Set ListView1.InnerListView.SelectedItem = _
      ListView1.InnerListView.ListItems(iRow)
                 .SelectedItem.EnsureVisible
    End With
End If

Zitat:

mir ist auch unklar, woher das Programm weiß, dass es zum Beispiel schon beim fünften Datensatz steht, und deshalb zum nächsten Treffer gehen soll.

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.