Zeitmesser

Zum Messen der Zeit:

Module Zeitmessen
Sub main()
Dim start As Date
Dim laufzeit As TimeSpan
start = Date.Now
Threading.Thread.Sleep(5123)
laufzeit = Now.Subtract(start)
Console.WriteLine("Laufzeit = {0} ms", _
laufzeit.TotalMilliseconds)
Console.ReadLine()
End Sub
End Module