Kleiner Trick um rudimentäres Profiling .NET Anwendungen zu betreiben. Entweder die Klasse System.Diagnostics.Stopwatch verwenden oder TickCounts mit System.Environment.TickCount zählen:

Option Explicit On

Option Strict On

 

Public Class Test

 

    Public Shared Sub main()

 

        Dim Stoppuhr As New System.Diagnostics.Stopwatch

 

        Stoppuhr.Start()

        System.Threading.Thread.Sleep(2000)

        Stoppuhr.Stop()

 

        System.Console.WriteLine("Seit Begin der Messung sind {0} Millisekunden vergangen.", Stoppuhr.ElapsedMilliseconds.ToString)

 

        Dim TickCount As Long = System.Environment.TickCount

        Dim VergangeneZeit As Long

        System.Threading.Thread.Sleep(2000)

        VergangeneZeit = System.Environment.TickCount - TickCount

        System.Console.WriteLine("Seit Begin der Messung sind {0} Millisekunden vergangen.", VergangeneZeit.ToString)

 

    End Sub

 

End Class

In diesem Sinne… Schöne Grüße.

Daniel