Imports System.IO
Module Module1
Sub Main()
Dim line As String
Dim sr As New StreamReader("d:\\file.txt")
While Not sr.EndOfStream
line = sr.ReadLine()
Console.WriteLine(line)
End While
sr.Dispose()
sr.Close()
End Sub
' run:
'
' VB.NET language
' in the .NET Framework
End Module