
      SelectedIconResourceId = SelectedIconResourceId
      
      txtFile.Text = sFileName
      PropertyChanged "FileName"
   End If
   
End Property

Private Sub extractIcons(ByVal sFile As String)
Dim iconCount As Long
   iconCount = ExtractIconEx( _
            sFile, -1, ByVal 0, ByVal 0, 0)
   If (iconCount &gt; 0) Then
      ReDim hIconlarge(0 To iconCount - 1) As Long
      iconCount = ExtractIconEx( _
               sFile, 0, hIconlarge(0), ByVal 0, iconCount)
      Dim i As Long
      Dim lR As 