Create Threads : Thread Create « Thread « VB.Net Tutorial

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

Module Module1

    Sub TaskA()
        Dim I As Integer

        For I = 0 To 250
            System.Console.Write("A")
        Next
    End Sub

    Sub TaskB()
        Dim I As Integer

        For I = 0 To 250
            System.Console.Write("B")
        Next
    End Sub

    Sub TaskC()
        Dim I As Integer

        For I = 0 To 250
            System.Console.Write("C")
        Next
    End Sub

    Sub Main()
        Dim A As System.Threading.Thread = New Threading.Thread(AddressOf TaskA)
        Dim B As System.Threading.Thread = New Threading.Thread(AddressOf TaskB)
        Dim C As System.Threading.Thread = New Threading.Thread(AddressOf TaskC)

        A.Start()
        B.Start()
        C.Start()
    End Sub

End Module

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBACCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCAAAAAAAAAAAAAAAAAAAAA"