如何通过提取EXE的ICO图标，并保存？

Question

如何通过提取EXE的ICO图标，并保存？＝＝＝以下例子只能提取显示，但如何保存呢？
如何导出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 i As Long
Dim j As Long
Dim k As Long
Dim zongshu As Long
Dim filename As String
filename = App.Path & "\q.exe"
zongshu = ExtractIcon(App.hInstance, filename, -1)
If zongshu > 0 Then
Do
j = ExtractIcon(App.hInstance, filename, i)
k = DrawIcon(Picture1.hdc, 10 + 40 * i, 10, j)
i = i + 1
If i = zongshu Then Exit Sub
Loop
Else
j = MsgBox(filename & "文件中没有图标!")
End If''''SavePicture Picture1.Picture, App.Path + "\AA.ICO"  失败！可以显示，但不能保存！为什么？End Sub

Answer 1

哪位朋友能给我源码，例子？多谢！