Icon aus der Shell32.dll in VB einfügen

Private Declare Function ExtractIcon Lib shell32.dll Alias _
    ExtractIconA (ByVal hInst As Long, ByVal lpszExeFileName As _
    String, ByVal nIconIndex As Long) As Long
    
Private Declare Function DestroyIcon Lib user32.dll _
    (ByVal hIcon As Long) As Long
    
Private Declare Function DrawIcon Lib user32.dll (ByVal hDC As Long, _
    ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Public Sub IconLesen(ByVal IconPfad As String, ByVal IconIndex As Long, _
    ByVal Picture As PictureBox)
    
    Dim Handle As Long
    Handle = ExtractIcon(App.hInstance, IconPfad, IconIndex)
    
   ->Icon anzeigen
    Call Picture.Cls
    Call DrawIcon(Picture.hDC, 0, 0, Handle)
    
   ->Icon zerstören
    Call DestroyIcon(Handle)
End Sub

Private Sub Command1_Click()
   ->Um die Symbole durchzugehen muss die 1 durch eine
   ->andere Zahl ersetzt werden.
    Call IconLesen(c:\windows\RegEdit.exe, 1, Picture1)
End Sub