添加1表單，Name=Form1。
添加1列表框，Name=List1+0。
添加1文本框，Name=Text1+0。
選項顯式
私有子窗體_Load（）
列表1。AddItem“item 1“
列表1。添加項目“項目2”
列表1。添加項目“項目3”
末端接頭
私有子命令1_Click（）
將N設為整數
對於N = 0的列表1。列表計數- 1
如果文本1。Text = List1。那就列出來吧
-顯示對話框-
MsgBox“項目已找到！index =“+CStr（N）
出口到
如果…就會結束
下壹個N
末端接頭
-完整的程序如上，VB6 -