Option Explicit
 
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As Long) As Long
 
Private Declare Function SendMessageStr 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_GETCOUNT = &H18B
Private Const LB_GETTEXT = &H189
Private Const LB_GETTEXTLEN = &H18A

Private Sub Command1_Click()
  Dim nCount As Long
  Dim i As Long
  Dim sText As String
  Dim nLen As Long
 
  nCount = SendMessage(hwndListBox, LB_GETCOUNT, 0, CLng(0))
  For i = 0 To nCount - 1
    nLen = SendMessage(hwndListBox, LB_GETTEXTLEN, i, 0)
    If nLen > 0 Then
      sText = String$(nLen, 0)
      SendMessageStr hwndListBox, LB_GETTEXT, i, sText
 
      Debug.Print i, sText
    End If
  Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de