Imports System

Imports System.Collections

Imports System.Collections.Generic

Imports System.Threading

Imports System.Globalization

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim dte As DateTime = DateTime.Now

        Thread.Sleep(1) '1 millisecond delay

        Console.WriteLine(String.Format("Elapsed Time: {0}", GetElapsedTime(dte)))

    End Sub

    Public Function GetElapsedTime(ByVal dte As DateTime) As String

            Static stop_time As DateTime = DateTime.Now

            Dim elapsed_time As TimeSpan

            elapsed_time = stop_time.Subtract(dte)

            Return elapsed_time.TotalSeconds.ToString("0.00000000")

    End Function

End Module