[color=green]' Deklarationsteil
Private Startzeit As Date, Endzeit As Date
[color=green]' Ende Deklarationsteil
 
Private Sub Command1_Click()
  Startzeit = Start.Text
  Endzeit = Ende.Text
End Sub
 
Private Sub Timer1_Timer()
  If Time >= Startzeit And Endzeit >= Time Then _
   MsgBox "Kinderschutz ist aktiviert!"
End Sub

Gruß
Marcus