Public Type LV_ITEM

    mask        As Long

    iItem       As Long

    iSubItem    As Long

    state       As Long

    stateMask   As Long

    pszText     As String

    cchTextMax  As Long

    iImage      As Long

    lParam      As Long

    iIndent     As Long

End Type

 

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

 

Const LVM_GETITEMCOUNT As Long = &H1004

Const LVM_GETITEMTEXT  As Long = &H102D

 

Public Function GetListViewItems(ByVal hwnd As Long) As String

   Dim lCount As Long, lIndex As Long

   Dim sItem As Long, lLen As Long, q As Long, soobw As String

   Dim LVI As LV_ITEM

  

    lCount = SendMessage(hwnd, LVM_GETITEMCOUNT, ByVal 0&, ByVal 0&)

For lIndex = 0 To lCount - 1

    LVI.cchTextMax = 260

    LVI.pszText = String$(LVI.cchTextMax, 0&)

    LVI.iSubItem = 0

   Call SendMessage(hwnd, LVM_GETITEMTEXT, ByVal lIndex, ByVal VarPtr(LVI))

   soobw = soobw & Trim(LVI.pszText) & vbCrLf

   Stop

Next lIndex

   GetListViewItems = soobw

End Function