   If (lR &gt; 0) Then
         SendMessageByLong m_hWnd, LB_SETCURSEL, lR, 0
      End If
   End If
End Property

Public Property Get SelectedIcon() As IPicture
Dim lIndex As Long
Dim lLen As Long
   lIndex = SendMessageByLong(m_hWnd, LB_GETCURSEL, 0, 0)
   If (lIndex &gt; -1) Then
      Set SelectedIcon = m_cIml.ItemPicture(lIndex + 1)
   End If
End Property

Public Property Get AllowChangeFile() As Boolean
   AllowChangeFile = m_bAllowChangeFileName
End Property
Public Property Let AllowChangeFile(ByVal 