Dim iRow As Integer

Private iRow As Integer

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

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.