Private Sub Timer1_Timer() Dim current As String current = Format(Now, "HH\:mm\:ss") & Format(Timer - Fix(Timer), ".0000") List1.AddItem current List1.TopIndex = List1.NewIndex End Sub