Option Strict On
 
Imports System.TimeSpan
Imports System.DateTime
 
Public Class TimeCheck
 
    Private m_dtmBegin As DateTime
    Private m_EndSpan As TimeSpan
 
    ' Begin the timecheck
    Public Sub [Begin]()
        m_dtmBegin = DateTime.Now
    End Sub
 
    ' End the timecheck
    Public Sub [End]()
        m_EndSpan = DateTime.Now.Subtract(m_dtmBegin)
    End Sub
 
    Public ReadOnly Property Milliseconds() As Long
        Get
            Milliseconds = CType(m_EndSpan.TotalMilliseconds, Long)
        End Get
    End Property
 
End Class