' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Module Main Sub Main() Dim rng as Random Dim i As Integer Dim v As Integer rng = new Random() For i = 1 To 10 v = rng.Next() Mod 6 + 1 Console.WriteLine(v) Next End Sub End Module