【VB】VB读取EXE程序的ICO图标显示并保存

VB读取EXE程序的ICO图标显示并保存：

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 DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Sub Command1_Click()
Dim lngIcon
    lngIcon = ExtractIcon(App.hInstance, "c:a.exe", 0)
    If lngIcon = 0 Then
        MsgBox "获取图标错误"
        Exit Sub
    Else
        Picture1.Cls
        Picture1.Picture = LoadPicture()
        Picture1.AutoRedraw = True
        DrawIcon Picture1.hdc, 0, 0, lngIcon
        Picture1.Refresh
        SavePicture Picture1.Image, "d:test.ico"
    End If
End Sub

VB PictureBox保存为图片：SavePicture Picture1.Image, "c:a.bmp"