Obtendo o números de ticks para a data e hora atual

'Este exemplo mostra como obter o número de ticks para a
'data e hora atual

'O valor da propriedade Ticks representa o número de
'intervalos de 100 nanosegundos desde a meia-noite de 1º de
'janeiro de 0001.

Module Module1
  Sub Main()
    Dim ticks As Long = DateTime.Now.Ticks

    Console.WriteLine("O número de ticks para a data e hora " _
      & "atual é " & ticks)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module