如何将文本文件中的文本逐行加入到Listbox中

on error resume next
err.clear
ffile=freefile
open "text" for input as #ffile
if err.number<>0 then exit sub '读入错误

dim gettext as string
while not eof(ffile)
line input #ffile,gettext
list1.additem gettext
wend
close #ffile

[此贴子已经被作者于2006-8-14 17:31:22编辑过]

Private Sub Form_Load()
a = FreeFile
Open "E:\001.txt" For Input As a
Do While Not EOF(a)
Line Input #a, b
List1.AddItem b
Loop
End Sub

谢谢2位

if list1.listindex <0 then
exit sub
end if
list1.list(list1.listindex)=text1.text