Option Explicit
 
Dim dBeg, dEnd As Date
 
Private Sub Form_Load()
dBeg = Now
dEnd = DateAdd("H", 8, dBeg)    ' 8 Stunden auf die aktuelle Zeit bei 
' Programmstart draufrechnen
tmZeit.Interval = 10
tmZeit.Enabled = True
End Sub
 
Private Sub tmZeit_Timer()
 
If (Now - dBeg > 0) And (Now - dEnd < 0) 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.ScaleHeight = 0 Then           'WENN Formgröße = 0 DANN
    tmZeit.Enabled = False         'Timer aus
     Unload Me                     'Heiamann... aus die Maus
   End If
End If
 
End Sub

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008