打地鼠

Private Sub Command1_Click()
    Timer1.Interval = 800  '時鐘1，控制地鼠跳動
    Timer2.Interval = 1000 '時鐘2，控制遊戲時間
    Label1.Caption = 0   '得分歸零
    If Text1.Text = Empty Then
        Label2 = 10
    Else
        Label2 = Int(Text1)
    End If

End Sub

Private Sub Image1_Click(Index As Integer)
    'index會傳回()後面的數字，比如左上角那塊0，中上1，右上2，其餘依此類推
    If Timer1.Interval = 0 Or Timer2.Interval = 0 Then
    Else
        If Image1(Index).Picture = Image3.Picture Then
            Label1 = Label1 + 1
        Else
            Label1 = Label1 - 1
        End If
    End If
End Sub

Private Sub Option1_Click()
    Timer1.Interval = 800
End Sub

Private Sub Option2_Click()
    Timer1.Interval = 500
End Sub

Private Sub Option3_Click()
    Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()  '控制地鼠出沒
    '清除地鼠
    For i = 0 To 8
        Image1(i).Picture = Image2.Picture
    Next

    '亂數產生地鼠
    Image1(Int(Rnd * 9)).Picture = Image3.Picture
End Sub

Private Sub Timer2_Timer()
    Label2 = Label2 - 1
        If Label2 = 0 Then
        Timer1.Interval = 0
        Timer2.Interval = 0
    End If
End Sub