' Sample for the Environment.TickCount property.
' TickCount cycles between Int32.MinValue, which is a negative 
' number, and Int32.MaxValue once every 49.8 days. This sample
' removes the sign bit to yield a nonnegative number that cycles 
' between zero and Int32.MaxValue once every 24.9 days.

Class Sample
   Public Shared Sub Main()
      Dim result As Integer = Environment.TickCount And Int32.MaxValue

      Console.WriteLine("TickCount: {0}", result)
   End Sub
End Class

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