8 lines
185 B
Text
8 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
|