Dim RandomWordNumber as Integer

Private Sub cmdShowWord_Click()

     'Generate a random number
     RandomWordNumber = Int(6 * Rnd + 1)

     'See which number is for which word and change the label
     If RandomWordNumber = 1 Then
          lblWord.Caption = "Teacher"
     End If

'Slot Machine, (c) 2006 Peter Browne, GPL Licensed
'
'Peter Browne
'Sheridan Corporate Centre
'2155 Leanne Blvd., Ste. 200B
'Mississauga ON  L5K 2K8
'(905) 616-6099
'peterrbrowne@hotmail.com
'
'
'PPPPPPPPPPPPPPPPPPPPPPPPP     PPPPPPPPPPPPPPPPPPPPPPPPP              BBBBBBBBBBBBBBBBBBBB
' PPPPPPPPPPPPPPPPPPPPPPPPPPP   PPPPPPPPPPPPPPPPPPPPPPPPPP

'Slot Machine, (c) 2006 Peter Browne, GPL Licensed
'
'Peter Browne

Private Sub Form_Load()
    Dim txtChange As Integer
    Dim Quarters As Integer
    Dim Dimes As Integer
    Dim Nickles As Integer
    Dim Pennies As Integer
    Dim NumberQuarters As Integer
    Dim