Dim Anzahl_Icons as Long
   ' dann ändern wir die Funktion "Symbol_Laden" wie folgt:
 
Public Function Symbol_Laden(pPfad As String)
 
  Dim RetVal As Long
  Dim IconNr As Long
 
     ' Anzahl Symbole in der Datei ermitteln
     IconNr = ExtractIconEx(pPfad, -1, 0&, 0&, 0&)
     If IconNr = 0 Then
           Exit Function ' Diese Datei enthält keine Symbole
     End If
 
     Anzahl_Icons = IconNr - 1
 
     ' Alle Symbole der Datei in Arrays speichern
     ReDim Icons_Klein(IconNr - 1)
     ReDim Icons_Groß(IconNr - 1)
     RetVal = ExtractIconEx(pPfad, 0&, Icons_Groß(0), _
     Icons_Klein(0), IconNr)
 
End Function

Private Sub cmdVorschau_Click()
Dim i
 
        ' Die PictureBox vor dem laden des Symbols "leeren"
        picVorschau.Cls 
 
        ' Jetzt greifen wir auf unsere Function "Symbol_Laden" im Modul zu _
          und geben den Pfad für unser Symbol an.
        Call Symbol_Laden("C:\Beispiel-Ordner\Beispiel-Symbol.ico")
 
        ' Jetzt können wir das/die geladene Symbol/e in die PictureBox zeichnen.
        picVorschau.Width = Anzahl_Icons * 37 ' PictureBox auf passende Größe 
        ' skalieren
 
        For i = 0 to Anzahl_Icons
             RetVal = DrawIconEx(picVorschau.hDC, (i + 1) * Anzahl_Icons + 5 , _
               5, _
             Icons_Groß(i), 0&, 0&, 0&, 0&, DI_NORMAL)
        Next i                  
 
         ' Um sicher zu gehen, dass das Icon wirklich angezeigt wird, muss _
          die PictureBox aktualisiert werden.
         picVorschau.Refresh
 
End Sub