Long
      For i = 0 To iconCount - 1
         m_cIml.AddFromHandle hIconlarge(i), IMAGE_ICON
         DestroyIcon hIconlarge(i)
         lR = SendMessageByString(m_hWnd, LB_ADDSTRING, 0, i)
         If (lR &gt; LB_ERR) Then
            m_lNewItem = lR
            SendMessageByLong m_hWnd, LB_SETITEMDATA, lR, m_cIml.ImageCount
            SendMessageByLong m_hWnd, LB_SETITEMHEIGHT, lR, m_cIml.IconSizeX + 4
         Else
            Debug.Print "Problem."
         End If
      Next i
   End If
End Sub

Priva