Vb6 Kronometre Yapımı

Merhaba Arkadaşlar,
Bu dersimizde vb6 da basit bir kronometre yapıcaz.
Hemen kodlarımıza geçelim.




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label4.Text = TextBox1.Text
Timer1.Interval = ComboBox1.Text
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label4.Text > 0 Then
Label4.Text = Label4.Text - 1
Else
Timer1.Stop()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
TextBox1.Text = Label4.Text
End Sub