Imports System.Diagnostics
Dim stopW As Stopwatch = New Stopwatch
stopW.Reset()
stopW.Start()
For i As Integer = 0 To 100000
i += 1
Next
stopW.Stop()
Trace.WriteLine(stopW.Elapsed.Ticks)
Trace.WriteLine(Stopwatch.GetTimestamp.ToString)
==========================================
每个Tick等于千万分之一秒
每个Tick等于万分之一毫秒