Calculate elapsed time in VB.NET

DotNET里面使用Timer获取精确时间计数值，可以用于程序执行时间的计算

http://support.microsoft.com/default.aspx?scid=kb;en-us;111268

Sub ElapsedTime()
   Dim StartTime As Double, EndTime As Double

   'Stores start time in variable "StartTime"
   StartTime = Timer

   'Place your code to be timed here

   'Stores end time in variable "EndTime"
   EndTime = Timer

   'Prints execution time in the debug window
   Debug.Print "Execution time in seconds: ", EndTime - StartTime
End Sub