取圖片中的圖標 到畫板、到圖標組、到超級列表框 整體效果如下圖：

程序源碼如下：

.程序集 窗口程序集1

.程序集變量 圖片號

.程序集變量 畫板, 畫板, , "0"

.程序集變量 圖片組, 字節集

.程序集變量 個數, 整數型

.子程序 __啟動窗口_創建完畢

圖片號 = 載入圖片 (#圖片1)

畫板_圖標組.寬度 = 畫板_圖標組.取圖片寬度 (圖片號)

畫板_圖標組.高度 = 畫板_圖標組.取圖片高度 (圖片號)

個數 = 畫板_圖標組.取圖片寬度 (圖片號) ÷ 畫板_圖標組.取圖片高度 (圖片號)

調試輸出 (畫板_圖標組.取圖片寬度 (圖片號), 畫板_圖標組.取圖片高度 (圖片號), 個數)

畫板_圖標組.畫圖片 (圖片號, 0, 0, , , )

卸載圖片 (圖片號)

圖片組 = 建空圖片組 (16, 16)

.子程序 _按鈕3_被單擊

.局部變量 局畫板, 畫板

.局部變量 i, 整數型

清除數組 (畫板)

.計次循環首 (個數, i)

復制窗口組件 (畫板_母板, 局畫板)

加入成員 (畫板, 局畫板)

畫板 [i].可視 = 真

畫板 [i].左邊 = 20 × i - 15

畫板 [i].自動重畫 = 真

.判斷開始 (i = 1)

畫板_圖標組.復制 (0, 0, 16, 16, 畫板 [i], 0, 0, )

.判斷 (i = 2)

畫板_圖標組.復制 (16 + 1, 0, 16, 16, 畫板 [i], 0, 0, )

.默認

畫板_圖標組.復制 (16 × i + 1, 0, 16, 16, 畫板 [i], 0, 0, )

.判斷結束

加入圖片 (圖片組, 畫板 [i].取圖片 (16, 16), )

超級列表框1.插入表項 (, 到文本 (i), 取隨機數 (0, 個數), , , )

.計次循環尾 ()

' 調試輸出 (取數組成員數 (畫板))

調試輸出 (取圖片組圖片數 (圖片組))

' 調試輸出 (寫到文件 (“r:/a.eil”, 圖片組))

超級列表框1.圖片組 = 圖片組

.圖片 圖片1, , 這個是圖標圖片BMP格式的

源碼地址：http://qiannao.com/file/dxdong90811/45b416ec/