System VB.Net by API

public class Test
   public Shared Sub Main
    Dim D As New DateTime(10000333333333333)
    Console.WriteLine("10000 ticks is " + D.Date())
   End Sub
End class