See the codes. I have done modification something on your Timer1_Timer() event and added form_load() event
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
lblascii.Caption = KeyCode
If KeyCode = 13 Then
Timer1.Enabled = True
End If
If KeyCode = 8 Then
Timer1.Enabled = False And MsgBox("time elapsed =" & time.Caption)
End If
End Sub
Private Sub Timer1_Timer()
time.Caption = Val(time.Caption) + 1
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000 '1000 for 1 second
End Sub
