If vx(105) = "1" Then
' Zähler Start
If aus <= vx(201) Then timer.Enabled = True     ' wert der Variable = 2
If aus > vx(201) Then  ' wert der Variable = 2
timer.Enabled = False
zähler = vx(202) ' wert der Variable = 10
End If
End If
 
Private Sub Label24_Click()
timer.Caption = "ON"
timer.ForeColor = vbGreen
zähler = vx(202)   ' Wert der Variable = 10
timer.Enabled = True
End Sub
 
Private Sub timer_Timer()
Label14.Caption = zähler
zähler = zähler - 1
If zähler = "0" Then
timer.Enabled = False
akt
End If
End Sub

Wer nicht fragt bleibt dumm, wer sich sch?mt zu fragen, sch?n dumm