quindi scrivero'

Private Sub txtdate_Change()
txtdate.Text = Format(Now, "dddd, mmmm dd, yyyy")
End Sub


e...funzia, grazie mille, ah io msdn non ce l'ho...