Private Sub sText_Change()
Dim iRow As Integer
iRow = 1
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
End Sub