Dim iRow As Integer
 
iRow = 1
Do Until iRow < 1
  iRow = lvw_Search(ListView1, "irgendwas", iRow)
  If iRow > 0 Then
    ' Eintrag gefunden
    MsgBox "Gefunden in Zeile: " & CStr(iRow)
  End If
Loop

Dim iRow As Integer
iRow = lvw_Search(ListView1, "irgendwas", iRow)
If iRow > 0 Then
    ' Eintrag gefunden
    Set ListView1.SelectedItem = ListView1.ListItems(iRow)
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.