'Simple Slot Machine
Dim x, y, z As Integer
Randomize()
picMoney.Visible = False
x = Int(Rnd() * 7) + 1
y = Int(Rnd() * 7) + 1
z = Int(Rnd() * 7) + 1
lblBox1.Text = x
lblBox2.Text = y
lblBox3.Text = z
If x=7 or y=7 and z= 7 Then
picMoney.Visible = True
End If