VB逐行导入文本到ListBox控件:

Dim strFileName As String                                                   '文件名
Dim lngFileNo As Long                                                       '文件号
Dim strTemp As String
strFileName = "rose.dat"                                                    '得到空闲文件号
lngFileNo = FreeFile()                                                      '打开文件
Open strFileName For Input As #lngFileNo
    Do Until EOF(lngFileNo)
        Line Input #lngFileNo, strTemp
        List1.AddItem strTemp
    Loop                                                                    '关闭文件
Close #lngFileNo