Как получить значения элементов SysListView32 , посредством функции sendmessage

Доброго времени суток. Помогите пожалуйста разобраться в использовании сообщений. Как ни пытаюсь, а получить текст Item'ов или SubItem'ов не получается. Получается только количество Item'ов.

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

При попытке получить перечень обоев с окна "Свойства экрана", окно вылетает с Run32 error, а при попытке получения перечня файлов в окне вида "таблица" вылетает Explorer. Проект целиком в архиве. Буду признателен за помощь.

Прикреплённый файлproekt.zip (23,21 Кбайт, скачиваний: 183)

Здесь

Цитата __Sergey__ @ 22.11.10, 10:45

Здесь

Зашибись как все сложно. Но зато работает. Спасибо, а то замучалса уже в поисках примеров по LVM_GETITEMTEXT, которого в том примере и нет .