Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr As New IO.StreamReader("c:\test.txt")
While sr.Peek >= 0
Dim line As String = sr.ReadLine()
ListBox1.Items.Add(line)
End While
sr.Close()
End Sub
|