*-- 說明：以默認方式將一個LISTBOX控件拖到一個表單上，
* 那么下列代碼就可以往這個LISTBOX里添加帶有圖片
* 的項目了。
*-- 定義8個LIST里的項目名稱，以及他們的圖片名稱
dime content(8,2)
content(1,1) = "第一頁"
content(2,1) = "上一頁"
content(3,1) = "下一頁"
content(4,1) = "末一頁"
content(5,1) = "打印設置"
content(6,1) = "報表打印"
content(7,1) = "報表屬性"
content(8,1) = "關閉報表"

content(1,2) = "btnHome"
content(2,2) = "btnPrev"
content(3,2) = "btnNext"
content(4,2) = "btnEnd"
content(5,2) = "btnSetup"
content(6,2) = "btnPrint"
content(7,2) = "btnProp"
content(8,2) = "btnClose"

*-- 循環(huán)加入這8個項目的名稱及指定他們的圖片，默認擴展名是BMP的。

With Thisform.List1
For n = 1 to 8
.AddItem(content(n,1))
.Picture(n) = content(n,2) + ".bmp"
EndFor
EndWith


注：上述代碼是用在列表框的（即LISTBOX），那么如果要應用在下拉列表框中，如何呢？
只需要將List改成Combo即可，屬性設置都為默認值即可！