Option Explicit On 
Module RandomTest
    Sub Main()
        Dim rnd As RandomLib.IRandom
        Dim val As Integer

        rnd = New RandomLib.RandomImpl
        rnd.Start(1234)
        For i As Integer = 0 To 9
            rnd.Next(Val)
            Console.WriteLine("{0}: {1}", i, val)
        Next
    End Sub
End Module