使用API函数 LoadImage 就可以实现图标的获取：

　　Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long,ByVal lpsz As String, ByVal un1 As Long,ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

　　通过LoadImage函数从指定的文件中读取 ICON、BitMap、Cursor等资源。