Environment.TickCount : Environment « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. Environment

Option Strict On

Public Module TimerFunction
   Public Sub Main()
      Dim starttime, endtime As Integer
      starttime = Environment.TickCount
      For ctr As Integer = 0 to 10000000

      Next
      endtime = Environment.TickCount
      Console.WriteLine("Elapsed time is {0} milliseconds", endtime - starttime)
   End Sub
End Module

Elapsed time is 16 milliseconds