Public Class Form1 Dim elgie As New System.Random Dim k, i, n, g As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True Timer2.Enabled = True End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = elgie.Next(0, 10) Label2.Text = elgie.Next(0, 10) Label3.Text = elgie.Next(0, 10) Label4.Text = elgie.Next(0, 10) End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick k += 1 If k = 1 Then Timer1.Stop() Timer2.Stop() k = 0 End If If Label1.Text = Label2.Text And Label2.Text = Label3.Text And Label3.Text = Label4.Text Then Label5.Text = "Jackpot" Label10.Text = Val(Label10.Text) + 30 Label7.Text = Val(Label7.Text) - 1 ElseIf Label1.Text = Label2.Text And Label1.Text = Label3.Text Or _ Label2.Text = Label1.Text And Label2.Text = Label3.Text And Label2.Text = Label4.Text Or _ Label3.Text = Label1.Text And Label2.Text = Label3.Text And Label3.Text = Label4.Text Or _ Label4.Text = Label1.Text And Label4.Text = Label3.Text And Label2.Text = Label4.Text Or Label2.Text = Label3.Text And Label2.Text = Label4.Text _ Or Label1.Text = Label2.Text And Label1.Text = Label4.Text Or Label1.Text = Label3.Text And Label3.Text = Label4.Text Then Label5.Text = "Triple" Label10.Text = Val(Label10.Text) + 20 Label7.Text = Val(Label7.Text) - 1 ElseIf Label1.Text = Label2.Text Or Label3.Text = Label4.Text Or Label2.Text = Label3.Text Or Label1.Text = Label4.Text Or Label1.Text = Label3.Text _ Or Label2.Text = Label4.Text Then Label5.Text = "double" Label10.Text = Val(Label10.Text) + 10 Label7.Text = Val(Label7.Text) - 1 Else Label5.Text = "Sorry" Label7.Text = Val(Label7.Text) - 1 End If

If Label7.Text = 0 Then If Label7.Text = 0 And Label10.Text >= 100 Then MsgBox("Nice you got it") End

Else MsgBox("sorry") End End If End If

End Sub
End Class