Development VB.Net

Imports System
Class Sample
   Public Shared Sub Main()
      Dim result As Integer = Environment.TickCount And Int32.MaxValue
      Console.WriteLine("TickCount: {0}", result)
   End Sub 
End Class