Arkadaşlar ben bir şaka programı yapıyorum..

------------------------------------------------------------------------------------
Kodlar:
Private Sub Form_Load()
Timer1.Enabled = True 'Timer 1 calışacak
Timer1.Interval = 1000 'her 1 SN de
Label1.Caption = "60" 'hangi sayıdan geri sayacaksak o rakamı yazıyoruz
Command1.Visible = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1'timer her SN calıştığı icin label 1 de yazarn RAKAM dan 1 cıkaracak guzel mantık
If Label1.Caption = "0" Then 'label1 0 olduğunda msgbox ile bizi uyaracak
MsgBox "Şaka Lan Şaka : )" , , "Şakaaaa"
Command1.Show
Timer1.Enabled = False
End If
End Sub

------------------------------------------------------------------------------------

Bu kodlarıda internetten buldum fakat programa koyuyorum ve calıştırıyorum biraz bekliyorum sonrada hata alıp kapanıyor ve

Private Sub Timer1_Timer()
Yukarıda sarı renkle yazdığım hatayı veriyor.. Arka planı sarı olarak veriyor ve ok işaretiyle burayı gosteriyor sizce hatam nedir ?
Şimdeden Teşekkurler..
__________________