Private Sub Update_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        
        With Timer1
            .Interval = 1000 '//Intervallo in millisecondo tra gli eventi Tick
            .Start() '//Fai partire il timer oppure, seguendo la sintassi VB6 basta settare la proprietà Enabled=true
        End With
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '//Qua piazzi il codice da eseguire

        txtEndDateTime.Text = Format(Now(), "yyyyMMdd HH:mm:ss")

    End Sub