by Jake Hobden, Jason Danks and Darren Tully (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 29th June 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is a lottery game to play with your friends
VBcoders
Private Sub CommandButton1_Click()
Randomize
TextBox1.Text = Int(50 * Rnd + 1)
End Sub
Private Sub CommandButton10_Click()
Randomize
TextBox10.Text = TextBox15.Text
End Sub
Private Sub CommandButton11_Click()
Randomize
TextBox11.Text = TextBox16.Text
End Sub
Private Sub CommandButton12_Click()
Randomize
TextBox7.Text = TextBox17.Text
End Sub
Private Sub CommandButton13_Click()
Result = MsgBox("Are you sure you wish to reset?", vbYesNoCancel)
If Result = 6 Then Reset
If Result = 7 Then MsgBox "You have not reset the game"
If Result = 2 Then Exit Sub
End Sub
Private Sub CommandButton14_Click()
Randomize
TextBox7.Text = Int(50 * Rnd + 1)
TextBox8.Text = Int(50 * Rnd + 1)
TextBox9.Text = Int(50 * Rnd + 1)
TextBox10.Text = Int(50 * Rnd + 1)
TextBox11.Text = Int(50 * Rnd + 1)
TextBox12.Text = Int(50 * Rnd + 1)
MsgBox "You have picked a Lucky Dip!", vbInformation
End Sub
Private Sub CommandButton15_Click()
Randomize
TextBox12.Text = TextBox18.Text
TextBox8.Text = TextBox13.Text
TextBox9.Text = TextBox14.Text
TextBox10.Text = TextBox15.Text
TextBox11.Text = TextBox16.Text
TextBox7.Text = TextBox17.Text
MsgBox "Your numbers have been submited", vbInformation
End Sub
Private Sub CommandButton2_Click()
Randomize
TextBox2.Text = Int(50 * Rnd + 1)
End Sub
Private Sub CommandButton3_Click()
Randomize
TextBox3.Text = Int(50 * Rnd + 1)
End Sub
Private Sub CommandButton4_Click()
Randomize
TextBox4.Text = Int(50 * Rnd + 1)
End Sub
Private Sub CommandButton5_Click()
Randomize
TextBox5.Text = Int(50 * Rnd + 1)
End Sub
Private Sub CommandButton6_Click()
Randomize
TextBox6.Text = Int(50 * Rnd + 1)
End Sub
Private Sub CommandButton7_Click()
Randomize
TextBox12.Text = TextBox18.Text
End Sub
Private Sub CommandButton8_Click()
Randomize
TextBox8.Text = TextBox13.Text
End Sub
Private Sub CommandButton9_Click()
Randomize
TextBox9.Text = TextBox14.Text
End Sub
Private Sub Label3_Click()
End Sub
Private Sub TextBox10_Change()
End Sub
Private Sub TextBox15_Change()
End Sub
Private Sub TextBox17_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub TextBox8_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Sub Reset()
TextBox1.Text = "?"
TextBox2.Text = "?"
TextBox3.Text = "?"
TextBox4.Text = "?"
TextBox5.Text = "?"
TextBox6.Text = "?"
TextBox7.Text = "?"
TextBox8.Text = "?"
TextBox9.Text = "?"
TextBox10.Text = "?"
TextBox11.Text = "?"
TextBox12.Text = "?"
TextBox13.Text = "#"
TextBox14.Text = "#"
TextBox15.Text = "#"
TextBox16.Text = "#"
TextBox17.Text = "#"
TextBox18.Text = "#"
End Sub
