Date Time VB.Net

Imports System.Globalization
Module MainClass
   Public Sub Main()
        Dim today1 As New System.DateTime(System.DateTime.Today.Ticks)
        Dim today2 As New System.DateTime(System.DateTime.Today.Ticks)
        Dim tomorrow As New System.DateTime(System.DateTime.Today.AddDays(1).Ticks)
        
        Dim todayEqualsToday As Boolean = System.DateTime.Equals(today1, today2)
        
        Dim todayEqualsTomorrow As Boolean = System.DateTime.Equals(today1, tomorrow)
        
   End Sub
End Module