Public Function ListView_GetItem(I As Long, hwndLV As Long) As String
    ItemText = String$(260, 0)
    With lpPitem
        .mask = LVIF_TEXT
        .iItem = I
        .pszText = ItemText
        .cchTextMax = 256
        .iSubItem = 0
    End With
    Call SendMessage(hwndLV, LVM_GETITEM, 0, lpPitem)
    ListView_GetItem = Left$(lpPitem.pszText, InStr(lpPitem.pszText, _
      vbNullChar) - 1)
End Function