Imports SystemClass Sample Public Shared Sub Main() Dim g As Guid g = Guid.NewGuid() Console.WriteLine(g) Console.WriteLine(Guid.NewGuid()) End Sub 'MainEnd Class 'Sample