Private Sub Form_Load()
   Timer1.Enabled = True
   Timer1.Interval = 1000
   Show
   Dim i As Long
   'Endlosoperation
   While i < 10000000
       i = i + 1
       If i = 1000000 Then i = 0: DoEvents
   Wend
 
End Sub
 
Private Sub Timer1_Timer()
    'Der Timer läuft 
    Me.Caption = Now
End Sub