So you want access to our archive of free essays and term papers? All you need to do is register and verify your email address! You must use the correct email address in order to activate your account.We do not give out your email address or any other per

Const PI = 3.14159
Public ChronoZehntelsekunden As Single
Public ChronoSekunden As Single
Public ChronoMinuten As Single
Public ChronoStunden As Single
Public TimeToGo As Date
Private Sub AlarmCountDown_Timer()
If fmrCountDown.BackColor = &H8000000F And Not lblAlarmCountDown.Visible Then
fmrCountDown.BackColor = vbRed
lblAlarmCountDown.Visible = True
Else
fmrCountDown.BackColor = &H8000000F
lblAlarmCountDown.Visible = False
End If
End Sub

Private Sub cmdChronoReset_Click()
StopUhrTimer.Enabled = False
ChronoZehntelsekunden = 0
ChronoSekunden = 0
ChronoMinuten = 0
ChronoStunden = 0
lblDifferenz.Caption = "---"
lblStart.Caption = "---"
lblEnde.Caption = "---"

End Sub
Private Sub cmdChronoStart_Click()
lblStart.Caption = Time()
StopUhrTimer.Enabled = True
End Sub

Private Sub cmdCountDownReset_Click()
lblCountDownZeit.Caption = "00:00:00"
txtCountDownZeit.Tex...