Private Sub Command1_Click()
End
End Sub
 
Private Sub Timer1_Timer()
 
Dim Zeit
 
    Zeit = Time
    Date = Date
 
    Label1.Caption = Zeit & " Uhr"
    Label2.Caption = Date & "  "
 
    Form1.Caption = Format$(Now, "dd.mm.yy        hh:nn:ss")
 
End Sub