• Home
 · 
• Miscellaneous
 · 
• This is a lottery game to play with your friends

This is a lottery game to play with your friends

This is a lottery game to play with your friends

Rate This is a lottery game to play with your friends

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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