取得したアイコンをイメージリストに追加したい

質問

アイコンファイルやDLLファイルなどから取得したアイコンを
イメージリストに追加したい(リストビューで表示したい)
のですが、 http://216.26.168.92/tips/tip136.html
のDeclarationsとFunctionをフォームに記述し、
フォームにコマンドボタン"Command1"とイメージリスト
"ImageList1"を置いて

Private Sub Command1_Click()
ImageList1.ListImages.Add , , _
GetIconFromFile("c:\windows\system\shell32.dll", _
0, True)
End Sub

と記述しても、「実行時エラー'7' メモリが不足しています」
と出てしまい、イメージリストにアイコンを追加できません。
途中にピクチャーボックスを経た場合、ピクチャーボックス
にはピクチャを表示できるものの、イメージリストに追加する
段階でやはり同じエラーが出ます。
どうすれば、アイコンをイメージリストに追加できる
のでしょうか？

アドバイスをお願いいたします。

回答No.1

todo36

アイコンを一旦ファイルに保存するのが手堅い。

http://www.vbvbvb.com/jp/gtips/1001/gExtractIcon.html
にsavepictureを追加

お礼

意図する内容ではありませんでしたが、素速いご回答に
感謝し、10ptの良回答とさせていただきます。
　ありがとうございました。

補足

ありがとうございます。
しかし、その場合はアイコンの透明色がピクチャーボックスの
背景色に置き換わってしまいますよね？
透明色を保持したまま、取得したアイコンをイメージリストに
入れる方法が知りたいわけです。