Visual Basic

Public Class DataGridViewSortRowsByDateTime
    Implements System.Collections.IComparer
    Private Direction As Integer = 1
    Public Sub New(ByVal so As SortOrder)
        If so = SortOrder.Descending Then
            Direction = -1
        ElseIf so = SortOrder.Ascending Then
            Direction = 1
        End If
    End Sub
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
    Implements System.Collections.IComparer.Compare
        Dim RowOne As DataGridViewRow = CType(x, DataGridViewRow)
        Dim RowTwo As DataGridViewRow = CType(y, DataGridViewRow)
        Dim Result As Integer = _
        System.DateTime.Compare(RowOne.Cells(0).Value, RowTwo.Cells(0).Value)
        Return Result * Direction
    End Function
End Class

System.DateTime.Compare(RowOne.Cells(x).Value, RowTwo.Cells(x).Value)

DataGridView1.Sort(New DataGridViewSortRowsByDateTime(SortOrder.Ascending))

DataGridView1.Sort(New DataGridViewSortRowsByDateTime(SortOrder.Descending))

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