Option Explicit
 
Private Sub chkJedenTag_Click()
  If chkJedenTag = 1 Then
    Timer1.Enabled = True
    Timer1.Interval = txtIntervall
  End If
End Sub
 
Private Sub cmdStart_Click()
  ' neu aktivieren nachdem das "an jedem Tag prüfen" ausgeschaltet war
  Timer1.Enabled = True
  Timer1.Interval = txtIntervall
End Sub
 
Private Sub Timer1_Timer()
'Überprüfen, ob ein neuer Tag erreicht wurde
 
  If txtVergleichsdatum.Text <> Date Then
    ' Neuer Tag
    txtVergleichsdatum.Text = Date
    ' Code ausführen
    MsgBox "Gestern ist vorbei!", , "Timer1_Timer"          ' nur für Test
    ' weiterer Code
    ' ..
    If chkJedenTag = 0 Then
      ' Timer stoppen
      Timer1.Enabled = False
    End If
    'End        ' nur, wenn das Programm beendet werden soll
  Else
    MsgBox "Heute ist noch nicht vorbei!", , "Timer1_Timer" ' nur für Test
  End If
 
End Sub
 
Private Sub Form_Load()
  txtVergleichsdatum.Text = Date
  'txtVergleichsdatum.Text = "22.03.2010" ' nur für Test z. B. auf gestern _
    stellen
  txtIntervall = 30000
  Timer1.Interval = txtIntervall
End Sub