testapp.vb

This is a book about vb.you could learn this from this book

Imports CustomStreams
Imports System.IO
Imports System

Public Module Application

	Public Sub Main()

		Dim customStream As UpperCaseStream
		
		' Create our custom stream, passing it a file stream 

		customStream = New UpperCaseStream( new FileStream( "file.txt", FileMode.Open ) )
		Dim sr As New StreamReader( customStream )
		Console.WriteLine("{0}",sr.ReadToEnd() )
		customStream.Close()

		' Create a file using our custom stream (using ASCII encoding)

		customStream = New UpperCaseStream( new FileStream( "fileout.txt", FileMode.Create ) )
		Dim sw As New StreamWriter( customStream,  System.Text.Encoding.ASCII )

		Dim i As Integer

		For i = 0 To 99
			sw.WriteLine("Hello World!")
		Next
		sw.Close()
	
	End Sub

End Module