Private Sub Text2_ *()
Text2.Text = Date
End Sub

-non mi funziona! al posto dell'asterisco che ci devo mettere?

-Grazie come sempre della vostra DISPONIBILITà!