Code Snippet
Public Class Timing
Private startingTime As TimeSpan
Private duration As TimeSpan
Public Sub New()
startingTime = New TimeSpan(0)
duration = New TimeSpan(0)
End Sub
Public Sub StartTime()
GC.Collect()
GC.WaitForPendingFinalizers()
startingTime = Process.GetCurrentProcess.Threads(0).UserProcessorTime
End Sub
Public Sub StopTime()
duration = Process.GetCurrentProcess.Threads(0).UserProcessorTime
End Sub
Public ReadOnly Property Result() As TimeSpan
Get
Return duration
End Get
End Property
End Class