Option Explicit
 
Dim dBeg, dEnd As Date
 
Private Sub Form_Load()
dBeg = Date & " " & Time
dEnd = DateAdd("H", 8, dBeg)    ' 8 Stunden auf die aktuelle Zeit bei 
' Programmstart
                                ' draufrechnen
End Sub

Private Sub tmZeit_Timer()
 
lblNow.Caption = Now  'Aktuelle Zeit anzeigen
lblDBeg.Caption = dBeg 'Anfangszeit ""
lblDEnd.Caption = dEnd 'Endzeit ""
 
If Now >= dBeg And Now < dEnd Then 'WENN aktuelle Zeit GRÖßER|GLEICH als 
' Anfangszeit
                                   'UND KLEINER als Endzeit DANN
  Me.Height = Me.Height - 10       'Formgröße = (Formgröße - 10) 
   If Me.Height = 0 Then           'WENN Formgröße = 0 DANN
    tmZeit.Enabled = False         'Timer aus
     Unload Me                     'Heiamann... aus die Maus
   End If
End If
 
End Sub