Read a file in a thread : Thread Create « Thread « VB.Net Tutorial

1. VB.Net Tutorial
2. Thread
3. Thread Create

Imports System.IO
Imports System.Text
Imports System.Threading
        
Public Class Tester
    Public Shared Sub Main
        Dim readThread As Thread
        readThread = New Thread(AddressOf ReadFile)
        readThread.Start()
    End Sub
    
    Private Shared Sub ReadFile()
        Dim myFileStream As FileStream
        Dim intByte As Integer
        Dim bteRead(128) As Byte
        Dim intloop As Integer = 0

        Try
            myFileStream = New FileStream("test.txt", FileMode.OpenOrCreate, FileAccess.Read)
            Do
                intByte = myFileStream.Read(bteRead, 0, 128)
                Console.WriteLine(Encoding.ASCII.GetString(bteRead))
                Thread.Sleep(500)
                intloop += 1
            Loop While Not (intByte = 0 Or intByte < 128)
            myFileStream.Close()
        Catch ex As IOException
            Console.WriteLine(ex.Message)
        End Try
    End Sub
    
End Class