I am stuck. I can't get the program to show the tenths of a second correct. Any help would be appreciated! Here is the code:

Code:
Option Compare Database
Option Explicit

Private Sub Form_Timer()

Dim curTime As Date
Dim Valhours As Integer
Dim valminutes As Integer
Dim valseconds As Integer
Dim valtenths As Integer

curTime = Time
Valhours = Hour(curTime)
...