I used the given below codes to search the items of listbox and scroll the items of listbox by a textbox:-

Private Declare Function SendMessageByString _
                         Lib "user32" _
                         Alias "SendMessageA" _
                         (ByVal hwnd As Long, _
                          ByVal wMsg As Long, _
                          ByVal wParam As Long, _
                          ByVal lParam As String) _
As Long

Private Const LB_SELECTSTRING = &H18C

Private Sub Text6_Change()
Dim lngEntryNum     As Long
    Dim strTextToFind   As String
    strTextToFind = Text6.Text
    lngEntryNum = SendMessageByString(List1.hwnd, _
                                      LB_SELECTSTRING, _
                                      0, _
End Sub

Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
i = List1.ListIndex
If KeyCode = vbKeyDown Then
i = i + 1
If i > List1.ListCount - 1 Then
i = 0
End If
List1.ListIndex = i
End If
End Sub
Now, I want to use a listview instead of the listbox. Please help me how to do the same for a listview.