圖示工具模組：

取得檔案圖示：

函數名：myGetIconPicture，傳回 Picture

引數	類型	說明
lpFullFilename	檔案完整路徑	可為文件檔、執行檔、動態程式庫、圖示檔、路徑
lpiIcon	可省略，預設為0，圖示索引，由 0 開始	若該圖示無該索引，則傳回圖示索引 0

範例：

Private Sub Command1_Click()

Set Image1.Picture = myGetIconPicture(Text1.Text, Val(Text2.Text))
SavePicture Image1.Picture, App.Path & "\test.ico"

End Sub

說明：

lpFullFilename	lpiIcon	傳回	說明
%SystemRoot%\explorer.exe	0		如上圖，傳回檔案總管內的圖示0
%SystemRoot%\explorer.exe	5		如上圖檔案總管內的圖示5
%SystemRoot%\explorer.exe	12		因採用指名路徑，故傳回相同於無此檔之圖示 若為絕對路徑，則會傳回圖示0
a:\	1		傳回A磁碟圖示0
D:\temp\測試.wma	省略		傳回文件檔所採用之預設圖示

附註：

本函數需引用物件模型工具之建立標準圖形物件函數建立具有 Icon 屬性的 stdPicture