7 lines
185 B
Text
7 lines
185 B
Text
Sub Consume(ByVal stream As IO.StreamReader)
|
|
Dim line = stream.ReadLine
|
|
Do Until line Is Nothing
|
|
Console.WriteLine(line)
|
|
line = stream.ReadLine
|
|
Loop
|
|
End Sub
|