Vb6 Basit Bir Tıklama Oyunu Yapımı

Merhaba Arkadaşlar,
Şimdi küçük bir tıklama oyunu yapıcaz.
Anlatıma geçelim.

Basit bir Tıklama Oyunu
-------------------------------------------

1 Timer
1 Button
3 Tane Label ekleyeceğiz

Label 1'i text'ini boş bırakıyoruz.
Label 2'nin text'ini kalan süre olarak yazıyor.
Label 3'ün text'i ise 60 olarak yazıyoruz.
Timerin interval'ini Properties'ten 1000 yapıyoruz

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static a As Byte
Timer1.Start()
a = a + 1
Label1.Text = (a & " kere tıkladınız")
If Label3.Text = "0" Then
Label3.Text = "60"
a = 1
Label1.Text = a

End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label3.Text = Label3.Text - 1
If Label3.Text = "0" Then
Timer1.Stop()
MsgBox("Süre Doldu")

End If
End Sub