VB 如何提取.exe文件图标，并加载显示到button按钮中？

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 a As Long
a = ExtractIcon(App.hInstance, "D:\Program Files\QQ2007\QQ.exe", 0)
a = DrawIcon(Picture1.hdc, 0, 0, a)
End Sub
这个可以显示在Picture1

'你有没有试过下面代码？它就是在Button控件中显示的！只不过利用一下临时控件而已。
‘在窗体上加入控件command1(Style = 1)，然后在窗体代码区复制下面代码，运行，即可看到结果！
'====窗体代码====
Option Explicit
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