Data e ora in TextBox con Timer

Buonasera a tutti
con il seguente codice visualizzo in due TextBox la data e l'ora corrente:

Private Sub Timer3_Timer()

        minuti = Minute(Time())
                     If Len(minuti) = 1 Then minuti = "0" & minuti

        ore = Hour(Time())
                 If Len(ore) = 1 Then ore = "0" & ore
                     
        secondi = Second(Time())
                 If Len(secondi) = 1 Then secondi = "0" & secondi


        txtTime.Text = ore & ":" & minuti '& ":" & secondi

        txtData.Text = Format(Now, "dd/mm/yyyy")


End Sub

funziona tutto egregiamente l'unico inconveniente e che quando carico la form devo, ovviamente, attendere almeno
un secondo prima che nelle rispettive text siano visibili data e ora.
Quindi vi chiedo è possibile eliminare l'attesa agendo eventualmente sulla form che avvia la form dove c'è il timer e le due Text ?

Ti conviene spostare il codice in una routine separata da richiamare sia nell'evento Timer del Timer sia nell'evento Load del Form.
Inoltre la puoi semplificare usando la funzione Format ed evitando il test per i valori di una sola cifra.

Perfetto.
Non sono riuscito però ad evitare il test per i valori ad una cifra usando la funzione format.

E perché non sei riuscito? Hai studiato la Format?

Ho semplificato usando :

txtTime.Text = Format(DateTime.Now, "HH:mm:ss")

Grazie.