Originariamente inviato da riccardone
vogliamo saperlo!
Naturalmente, il codice errato si vede da solo

codice:
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim d As DateTime = DateTime.Now

        For i As Integer = 1 To 3
            Libreria.PrintLn(d.AddSeconds(1).ToString)
        Next
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim d As DateTime = DateTime.Now

        For i As Integer = 1 To 3
            d = d.AddSeconds(1)
            Libreria.PrintLn(d.ToString)
        Next

    End Sub