Public Class Tester
Public Shared Sub Main
Dim ticksBefore As Long
Dim ticksAfter As Long
Dim tickSeconds As Double
ticksBefore = Now.Ticks
MsgBox("Press OK to see elapsed seconds")
ticksAfter = Now.Ticks
tickSeconds = (ticksAfter - ticksBefore) / 10000000.0
Console.WriteLine("Elapsed seconds: " & tickSeconds.ToString())
End Sub
End Class
|