Imports System.Diagnostics
Public Class Form1
    Dim sw As New Stopwatch
End Class

sw.Start
sw.Stop
sw.Reset
sw.Elapsed                                    ' komplette Zeitanzeige
sw.ElapsedSeconds                             ' nur die Sekunden
sw.ElapsedMilliseconds                        ' nur die Millisekunden
sw.ElapsedTicks                               ' 1/10000000 Sek