Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Class Sample
Public Shared Sub Main()
Dim dat1 As DateTime
Console.WriteLine(dat1.ToString(System.Globalization.CultureInfo.InvariantCulture))
Console.WriteLine(dat1.Equals(Date.MinValue))
End Sub
End Class