Private Sub countdown2_Timer()
D = Day(Date)
H = Hour(Time)
M = Minute(Time)
S = Second(Time)
 
 
If ct = D Then
    If ch = H Then
        If cm = M Then
            If cs = S Then
                shell programm
            Else
            End If
        Else
        End If
    Else
    End If
Else
End If
 
 
Sekunden2 = cs - S / 1 + 60 & " " & S & " " & cs 'Fehler zubeheben
Minuten2 = cm - M + 59
Stunden2 = ch - H + 23
 
End Sub
 
 
 
Private Sub programm1_Timer()
 
Dir = Drive
File = Dir
programm = Dir & "\" & File
 
End Sub
 
 
 
Private Sub Second_Timer()
 
If Minuten1 >= 60 Then
    Stunden = Stunden1 + 1
    Minuten = Minuten1 - 60
Else
End If
 
If Sekunden1 >= 60 Then
    Minuten = Minuten1 + 1
    Sekunden = Sekunden1 - 60
Else
End If
 
End Sub
 
 
 
Private Sub start_Click()
S = Second(Time)
M = Minute(Time)
H = Hour(Time)
T = Day(Date)
cs = S + Sekunden1
cm = M + Minuten1
ch = H + Stunden1
ct = Day(Date)
 
 
a:
If cs >= 60 Then
    cs = cs - 60
    cm = cm + 1
    GoTo a
Else
End If
 
b:
If cm >= 60 Then
    cm = cm - 60
    ch = ch + 1
    GoTo b
Else
End If
 
c:
If ch >= 24 Then
    ch = ch - 24
    ct = ct + 1
    GoTo c
Else
End If
 
 
Second1.Enabled = True
countdown1.Enabled = True
countdown2.Enabled = True
 
End Sub