se ho capito bene vuoi fare questo:

codice:
Label1.Caption = Format(Day(Now) & "/" & Month(Now) & "/" & Year(Now) & "  " & Hour(Now) & "." & Minute(Now) & "." & Second(Now))