Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Class Sample
Public Shared Sub Main()
Dim dat2 As New DateTime()
' The following method call displays 1/1/0001 12:00:00 AM.
Console.WriteLine(dat2.ToString(System.Globalization.CultureInfo.InvariantCulture))
' The following method call displays True.
Console.WriteLine(dat2.Equals(Date.MinValue))
End Sub
End Class