Private Sub Form_Load()
  Timer1.Interval = 1000
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  sZeit = Time$
  sDatum = Format$(Now, "dd.mm.yyyy")
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de