Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() MsgBox "CIAO" Timer1.Enabled = False End Sub