Imports System
Class Program
Public Shared Sub Main()
Dim n1 As Integer = CInt((DateTime.Now.Ticks Mod Integer.MaxValue))
Console.WriteLine(n1)
Dim n2 As Integer = CInt((DateTime.Now.Ticks Mod Integer.MaxValue))
Console.WriteLine(n2)
Dim n3 As Integer = CInt((DateTime.Now.Ticks Mod Integer.MaxValue))
Console.WriteLine(n3)
End Sub
End Class
' run:
'
' 1465402344
' 1465587420
' 1465587622
'