VB.NET code snippets

1. Random number generation
        Dim gen As System.Random = New System.Random()
        Randomize()
        Dim dice As Integer = gen.Next(1, 7)