g m_hWnd, LB_SETITEMDATA, lR, m_cIml.ImageCount
         SendMessageByLong m_hWnd, LB_SETITEMHEIGHT, lR, m_cIml.IconSizeX + 4
      Else
         Debug.Print "Problem."
      End If
   End If
End Sub

Public Property Get SelectedIconResourceId() As String
Dim lIndex As Long
Dim lLen As Long
Dim sBuf As String
   If Not (m_hWnd = 0) Then
      lIndex = SendMessageByLong(m_hWnd, LB_GETCURSEL, 0, 0)
      If (lIndex &gt; -1) Then
         lLen = SendMessageByLong(m_hWnd, LB_GETTEXTLEN, lIndex, 0)
         If (