by Tony [email protected] (8 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 15th June 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
makes a simple slot machine
VBcoders
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