Public Class ClassIcons
    Private Declare Auto Function ExtractIcon Lib "shell32.dll" ( _
        ByVal hIcon As IntPtr, _
        ByVal lpszExeFileName As String, _
        ByVal nIconIndex As Integer) _
    As IntPtr
 
    Private _sourceFile As String
 
    Private il As ImageList
 
    ''' <summary>Lädt alle Icons aus der angegebenen Datei.</summary>
    Public Sub New(ByVal sourceFile As String)
        _sourceFile = sourceFile
        il = New ImageList
        'kleine symbole
        il.ColorDepth = ColorDepth.Depth32Bit
        il.ImageSize = New Size(16, 16)
        'mittlere symbole
        'il.ColorDepth = ColorDepth.Depth32Bit
        'il.ImageSize = New Size(32, 32)
        'große symbole
        'il.ColorDepth = ColorDepth.Depth32Bit
        'il.ImageSize = New Size(48, 48)
        LoadAllImagesFromFile()
    End Sub
 
    Private Sub LoadAllImagesFromFile()
        For i As Integer = 0 To 48
            il.Images.Add(GetIconFromFile(_sourceFile, i))
        Next
    End Sub
 
    Public ReadOnly Property ImageList() As ImageList
        Get
            Return il
        End Get
    End Property
End Class