Imports SystemImports System.GlobalizationImports Microsoft.VisualBasicClass Sample Public Shared Sub Main() Dim date1 As Date = #3/1/2010 7:00AM# Console.WriteLine(date1.ToString()) End SubEnd Class