Private Declare Function SendMessage Lib "user32" _
                            Alias "SendMessageA" _
                            (ByVal hwnd As Long, _
                            ByVal wMsg As Long, _
                            ByVal wParam As Long, _
                            lParameter As Any) _
                            As Long
 
Private Type GETLVINFO
    flags               As Long
    SearchString        As String
End Type
 
Private Const LVFI_PARTIAL = &H8
Private Const LVFI_WRAP = &H20
Private Const LVM_FIRST = &H1000
Private Const LVM_SORTITEMS = (LVM_FIRST + 13)
 
Private Function Search(ByVal hwnd As Long, ctrl As ListView)
    Dim lRet     As Long
    Dim glvi         As GETLVINFO
 
    With glvi
        .flags = LVFI_PARTIAL Or LVFI_WRAP
        .SearchString = Text1.Text
        lRet = SendMessage(hwnd, LVM_SORTITEMS, -1, glvi)
        If lRet >= 0 Then Set ctrl.SelectedItem = ctrl.ListItems(lRet + 1)
        ctrl.SetFocus
    End With
End Function
 
Private Sub Command2_Click()
    Search ListView1.hwnd, ListView1
End Sub