數字跳動版 Lucky Seven

'數字跳動版 Lucky Seven
Public Class Form1
    Dim n1, k1
    Dim n2, k2
    Dim n3, k3
    Dim money, s7
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        money = 1000
        Timer1.Interval = 150
        Timer1.Enabled = False

        With Label1
            .AutoSize = True
            .Text = 1
            .Font = New Font("impact", 55)
            .ForeColor = Color.Yellow
            .BackColor = Color.Blue
        End With
        With Label2
            .AutoSize = True
            .Text = 2
            .Font = New Font("impact", 55)
            .ForeColor = Color.Yellow
            .BackColor = Color.Blue
        End With
        With Label3
            .AutoSize = True
            .Text = 3
            .Font = New Font("impact", 55)
            .ForeColor = Color.Yellow
            .BackColor = Color.Blue
        End With
        With Label4
            .AutoSize = True
            .Text = "$" & money
            .Font = New Font("impact", 20)
            .ForeColor = Color.Red
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        money = money - 50
        Label4.Text = "$" & money

        n1 = Int(Rnd() * 10)
        k1 = 0
        Timer1.Enabled = True

        n2 = Int(Rnd() * 10)
        k2 = 0
        Timer2.Enabled = True

        n3 = Int(Rnd() * 10)
        k3 = 0
        Timer3.Enabled = True

        If n1 = 7 Then s7 = s7 + 1
        If n2 = 7 Then s7 = s7 + 1
        If n3 = 7 Then s7 = s7 + 1
        If s7 = 3 Then money = money + 6000
        If s7 = 2 Then money = money + 600
        If s7 = 1 Then money = money + 60
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = k1
        If k1 = n1 Then Timer1.Enabled = False
        k1 = k1 + 1
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label2.Text = k2
        If k2 = n2 Then Timer2.Enabled = False
        k2 = k2 + 1
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Label3.Text = k3
        If k3 = n3 Then Timer3.Enabled = False
        k3 = k3 + 1
    End Sub
End Class