lLen &lt;&gt; LB_ERR) Then
            If (lLen &gt; 0) Then
               sBuf = String$((lLen), 0)
               SendMessageByString m_hWnd, LB_GETTEXT, lIndex, sBuf
               SelectedIconResourceId = sBuf
            End If
         End If
      End If
   End If
End Property

Public Property Let SelectedIconResourceId(ByVal sName As String)
Dim lR As Long
   ' find the matching item in the control:
   If Not (m_hWnd = 0) Then
      lR = SendMessageByString(m_hWnd, LB_FINDSTRINGEXACT, 0, sName)
   