Visual Basic

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Threading

Namespace ConsoleApplication13
	Friend Class Program
		Private Class Massegeinfo
'INSTANT VB NOTE: The variable iterations was renamed since Visual Basic does not allow class members with the same name:
			Private iterations_Renamed As Integer
'INSTANT VB NOTE: The variable massage was renamed since Visual Basic does not allow class members with the same name:
			Private massage_Renamed As String
			Public Sub New(ByVal iterations As Integer, ByVal massage As String)
				Me.iterations_Renamed=iterations
				Me.massage_Renamed=massage
			End Sub
			Public ReadOnly Property Iterations() As Integer
				Get
					Return iterations_Renamed
				End Get
			End Property
			Public ReadOnly Property Massage() As String
				Get
					Return massage_Renamed
				End Get
			End Property
		End Class

		Public Shared Sub displayMessage(ByVal state As Object)
			Dim config As Massegeinfo=TryCast(state, Massegeinfo)
			If config Is Nothing Then
				For count As Integer = 0 To 2
					Console.WriteLine("a thread pool example")
					Thread.Sleep(1000)
				Next count
			Else
				For count As Integer = 0 To config.Iterations - 1
					Console.WriteLine(config.Massage)
					Thread.Sleep(1000)
				Next count
			End If

		End Sub

		Shared Sub Main(ByVal args() As String)
			ThreadPool.QueueUserWorkItem(AddressOf displayMessage)
			Dim info As New Massegeinfo(5, "A thread pool example with arguments")
			ThreadPool.QueueUserWorkItem(AddressOf displayMessage, info)
			Console.WriteLine("Main method complete. press enter")
			Console.ReadLine()
		End Sub
	End Class
End Namespace

"_$h@nky_" wrote:

please tell me how can i do all these work without detecting by antivirus.

I are Troll