Kronometre

Private Sub Command1_Click()
Timer1.Enabled = Not (Timer1.Enabled)
If Timer1.Enabled = True Then
Command1.Caption = "DURDUR"
Else
Command1.Caption = "BAŞLAT"
End If

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1 + 1
If Label1 = 60 Then
Label2 = Label2 + 1

Label1 = 0
End If
If Label2 = 60 Then
Label3 = Label3 + 1
Beep
Label2 = 0
End If
If Label3 = 60 Then
Label4 = Label4 + 1
Label3 = 0
End If

End Sub

Private Sub Timer2_Timer()
Label6 = Time & "             " & Date

End Sub