HOW TO DESIGN STOPWATCH IN VB6

BELOW IS THE INTERFACE:

BELOW IS THE CODE FOR THE STOPWATCH:

Dim elapsed As Variant
Dim startTime As Variant
Dim today As Variant


Private Sub cmdend_Click()
Timer1.Enabled = False
today = Now
txtend.Text = Format(today, "hh:mm:ss")
elapsed = today - startTime
txtelapse.Text = Format(elapsed, "hh:mm:ss")

End Sub

Private Sub cmdstart_Click()
startTime = Now
txtstart.Text = Format(startTime, "hh:mm:ss")
Timer1.Enabled = True
End Sub

Private Sub Exit_Click()
End
End Sub


Private Sub Timer1_Timer()
today = Now
txtstart.Text = Format(today, "h:mm:ss")
End Sub