english as string
chinese as string
end type
private dic() as dictionary
'定義壹個字典，然後賦值
private sub form_load
redim dic(10)
dic(0).english="access"
dic(0).chinese="vt. 存取；接近；使用" & vbcrlf & "n. 通路；進入；使用權"
......
for i=0 to 10 '英文部分加入列表框
list1.additem dic(i).english
next
end sub
'點擊列表框在文本框出現翻譯
private sub list1_click()
text1.text=dic(list1.listindex).chinese
end sub