te Sub GetIconFromIconFile()
Dim iCount As Long
Dim lR As Long
   iCount = m_cIml.ImageCount
   On Error Resume Next
   m_cIml.AddFromFile m_sFileName, IMAGE_ICON
   On Error GoTo 0
   If (m_cIml.ImageCount &gt; iCount) Then
      lR = SendMessageByString(m_hWnd, LB_ADDSTRING, 0, "")
      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
         