有谁知道在VB中如何用代码获取已经存在的应用程序的图标?麻烦帮忙解答一下!谢谢!

Option Explicit

'功能:
' '获取文件(EXE、DLL)中包含的图标资源
'
'涉及到的API
' ExtractIcon
' DrawIcon
'
'来源:不详
'
'API声明
'Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long

'功能：获取指定文件的图标
'参数:
' hInst 应用程序句柄
' lpszExestrFile EXE、DLL文件名
' nIconIndex 图标索引
'返回值：
' 当nIconIndex为-1时,返回文件包含的图标总个数
' 当nIconIndex为其他值时,返回文件的第nIconIndex个图标的句柄
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExestrFile As String, ByVal nIconIndex As Long) As Long

'功能:在指定的绘图设备上绘制图标
'参数:
' hdc 绘图设备句柄
' x 水平坐标(像素)
' y 垂直坐标(像素)