Dim i Private Sub Command1_Click() i=0 Me. TimerInterval=1000 End Sub Private Sub Command2_Click() (13) End Sub Private Sub Command2_DbClick(Cancel As Integer) DoCmd. (14) End Sub Private Sub Form_Load() Me. TimerInterval=0 Me!Text1=0 End Sub Private Sub Form_Timer() i=i+i Me!Text1= (15) End Sub