VB.Net/Thread/Suspend Resume

Suspend and resume Thread

<source lang="vbnet"> Imports System.Threading Module Module1

   Public A As Thread = New Thread(AddressOf MethodA)
   Public B As Thread = New Thread(AddressOf MethodB)
   Public C As Thread = New Thread(AddressOf MethodC)
   Sub MethodA()
       Dim I As Integer
       Try
           A.Suspend()
           For I = 0 To 250
               Console.Write("A")
           Next
       Catch E As ThreadStateException
           Console.WriteLine("Thread A Expection" & E.ToString())
       End Try
   End Sub
   Sub MethodB()
       Dim I As Integer
       Try
           For I = 0 To 250
               Console.Write("B")
           Next
       Catch E As ThreadAbortException
           Console.Write("Thread B has been aborted")
       End Try
   End Sub
   Sub MethodC()
       Dim I As Integer
       Try
           If (B.IsAlive) Then
               B.Abort()
           End If
           For I = 0 To 250
               If (A.ThreadState = ThreadState.Suspended) Then
                   A.Resume()
               End If
               Console.Write("C")
           Next
       Catch E As Threading.ThreadStateException
           Console.WriteLine("Thread C Expection" & E.ToString())
       End Try
   End Sub
   Sub Main()
       A.Start()
       B.Start()
       C.Start()
   End Sub

End Module

      </source>