using System;

public class Die {
  private int numberOfEyes;
  private Random randomNumberSupplier; 
  private const int maxNumberOfEyes = 6;

  public Die(){
    randomNumberSupplier = new Random(unchecked((int)DateTime.Now.Ticks));
    numberOfEyes = NewTossHowManyEyes();
  }   
    
  public void Toss(){
    numberOfEyes = NewTossHowManyEyes();
  }

  private int NewTossHowManyEyes (){
    return randomNumberSupplier.Next(1,maxNumberOfEyes + 1);
  }

  public int NumberOfEyes() {
    return numberOfEyes;
  }

  public override String ToString(){
    return String.Format("[{0}]", numberOfEyes);
  }
}     

Imports System

Module DieApplication

  Sub Main()
    Dim D1 as new Die()
    Dim D2 as new Die()
    D1.Toss()
    Console.WriteLine(D1)
    Console.WriteLine()

    For i as Integer = 1 To 10
      D2.Toss()
      Console.WriteLine(D2)
    Next i
  End Sub 

End Module