• Home
 · 
• Games
 · 
• makes a simple slot machine

makes a simple slot machine

makes a simple slot machine

Rate makes a simple slot machine

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
End Sub

Private Sub Command2_Click()
ShellExecute hwnd, "open", "mailto:[email protected]", vbNullString, vbNullString, conSwNormal
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub howto_Click(Index As Integer)
Form2.Show
End Sub

Private Sub Picture1_Click()
If Picture1.BackColor = Picture2.BackColor = Picture3.BackColor Then A = MsgBox("Well Done. Your won. Play again?", vbYesNo, "Well Done")
    If A = vbNo Then End
    Timer1.Enabled = False
End Sub
Private Sub Picture2_Click()
If Picture1.BackColor = Picture2.BackColor = Picture3.BackColor Then A = MsgBox("Well Done. Your won. Play again?", vbYesNo, "Well Done")
    If A = vbNo Then End
    Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
     Picture1.BackColor = QBColor(Rnd * 15)
End Sub
Private Sub Picture3_Click()
    Timer3.Enabled = False
    If Picture1.BackColor = Picture2.BackColor = Picture3.BackColor Then A = MsgBox("Well Done. Your won. Play again?", vbYesNo, "Well Done")
    If A = vbNo Then End
End Sub
Private Sub Timer2_Timer()
Picture2.BackColor = QBColor(Rnd * 15)
End Sub
Private Sub Timer3_Timer()
Picture3.BackColor = QBColor(Rnd * 15)
End Sub

Private Sub Timer4_Timer()
Timer2.Enabled = False
End Sub

Private Sub Timer5_Timer()
Timer1.Enabled = False
End Sub

Private Sub Timer6_Timer()
Timer3.Enabled = False
End Sub