怎样把exe或dll文件中的图标加入到ImageList控件中.docVIP

怎样把*.exe或*.dll文件中的图标加入到ImageList控件中 类模块：CLSDLLres Option Explicit Private Declare Function LoadLibrary Lib kernel32 Alias LoadLibraryA (ByVal lpLibFileName As String) As Long Private Declare Function LoadBitmap Lib user32 Alias LoadBitmapA (ByVal hInstance As Long, ByVal lpBitmapName As String) As Long Private Declare Function GetObject Lib gdi32 Alias GetObjectA (ByVal hObject As Long, ByVal nCount As Long, lpObject As BITMAP) As Long Private Declare Function CreateCompatibleDC Lib gdi32 (ByVal hdc As Long) As Long Private Declare Function SelectObject Lib gdi32 (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function DeleteDC Lib gdi32 (ByVal hdc As Long) As Long Private Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As Long Private Declare Function FindResource Lib kernel32 Alias FindResourceA (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As String) As Long Private Declare Function LockResource Lib kernel32 (ByVal hResData As Long) As Long Private Declare Function LoadResource Lib kernel32 (ByVal hInstance As Long, ByVal hResInfo As Long) As Long Private Declare Function GlobalUnlock Lib kernel32 (ByVal hMem As Long) As Long Private Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Declare Function FreeLibrary Lib kernel32 (ByVal hLibModule As Long) As Long Private Declare Function LoadIcon Lib user32 Alias LoadIconA (ByVal hInstance As Long, ByVal lpIconName As String) As Long Private 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 Private Declare Function CreateIco