Randomize()

        Dim onePath As String = "C:\Documents and Settings\James\My Documents\Visual Studio 2005\Projects\DiceRoll1\images\die1.gif"
        Dim one As Image = Image.FromFile(onePath)

        Dim twoPath As String = "C:\Documents and Settings\James\My Documents\Visual Studio 2005\Projects\DiceRoll1\images\die2.gif"
        Dim two As Image = Image.FromFile(twoPath)

        Dim threePath As String = "C:\Documents and Settings\James\My Documents\Visual Studio 2005\Projects\DiceRoll1\images\die3.gif"
        Dim three As Image = Image.FromFile(threePath)

        Dim fourPath As String = "C:\Documents and Settings\James\My Documents\Visual Studio 2005\Projects\DiceRoll1\images\die4.gif"
        Dim four As Image = Image.FromFile(fourPath)

        Dim fivePath As String = "C:\Documents and Settings\James\My Documents\Visual Studio 2005\Projects\DiceRoll1\images\die5.gif"
        Dim five As Image = Image.FromFile(fivePath)

        Dim sixPath As String = "C:\Documents and Settings\James\My Documents\Visual Studio 2005\Projects\DiceRoll1\images\die6.gif"
        Dim six As Image = Image.FromFile(sixPath)



        Dim dice1 As Integer
        Dim dice2 As Integer
        dice1 = Int((6 * Rnd())) + 1
        dice2 = Int((6 * Rnd())) + 1
        'MsgBox(dice1 & "  " & dice2)
        Select Case dice1
            Case 1
                picDice1.Image = one
            Case 2
                picDice1.Image = two
            Case 3
                picDice1.Image = three
            Case 4
                picDice1.Image = four
            Case 5
                picDice1.Image = five
            Case 6
                picDice1.Image = six
        End Select
        Select Case dice2
            Case 1
                picDice2.Image = one
            Case 2
                picDice2.Image = two
            Case 3
                picDice2.Image = three
            Case 4
                picDice2.Image = four
            Case 5
                picDice2.Image = five
            Case 6
                picDice2.Image = six
        End Select