Private Function fSearchLV()
    FLI.lFlags = LV_PART Or LV_WRAP
    FLI.sText = Text1.Text
    lRetVal = SendMessage(ListView1.hwnd, LV_SEARCH_ITEM, -1, FLI)
    If lRetVal >= 0 Then Set ListView1.SelectedItem = _
    ListView1.ListItems(lRetVal + 1)
    ListView1.SetFocus
    End Function