1) Doppio click sul bottone
2) Ti si apre la finestra del codice
codice:
   Private Sub Command1_Click()
   End Sub
3) In questa sub metti l'istruzione
codice:
   Private Sub Command1_Click()
       Text1.Text = Now() ' O una forma derivata 
   End Sub
Ciao,