Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" _
  (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, _
  phiconSmall As Long, ByVal nIcons As Long) As Long
 
Dim lngIcon32() As Long
Dim lngIcon16() As Long
 
Private Sub cmdLaden_Click()
Dim lngAnzahl As Long
Dim lngAnzahlGelesen As Long
 
'Anzahl der Icons auslesen
lngAnzahl = ExtractIconEx(txtDatei.Text, -1, ByVal 0, ByVal 0, 0)
lblAnzahl.Caption = Format(lngAnzahl) & " Icons"
 
If lngAnzahl > 0 Then
    'Icons auslesen
    ReDim lngIcon32(lngAnzahl - 1)
    ReDim lngIcon16(lngAnzahl - 1)
 
    lngAnzahlGelesen = ExtractIconEx(txtDatei.Text, 0, lngIcon32(0), lngIcon16( _
      0), lngAnzahl)
    lblAnzahl.Caption = lblAnzahl.Caption & " - " & Format(lngAnzahlGelesen) & _
    " Icons gelesen"
End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
 
If Not Not lngIcon32 Then
    For i = 0 To UBound(lngIcon32)
        If lngIcon32(i) <> 0 Then DestroyIcon (lngIcon32(i))
        If lngIcon16(i) <> 0 Then DestroyIcon (lngIcon16(i))
    Next
End If
End Sub