Private Sub Command1_Click() Timer1. Enabled=True Timer1.Interval=100 End Sub Private Sub Command2_click