Date Time VB.Net

Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Class Sample
   Public Shared Sub Main()
      Dim dt1 As New DateTime(DateTime.MaxValue.Ticks)
      Dim dt2 As New DateTime(DateTime.MinValue.Ticks)
      Dim ticks As Long = New DateTime(2010, 7, 28, 22, 35, 5, New CultureInfo("en-US", False).Calendar).Ticks
      Dim dt3 As New DateTime(ticks)
      Console.WriteLine(dt1)
      Console.WriteLine(dt2)
      Console.WriteLine(dt3)
      Console.WriteLine(ticks)
   End Sub
End Class