same overflow error:-(( Private Sub Form_Load() mStart = Timer 'Set up the listview ListView1.View = lvwReport ListView1.ColumnHeaders.Add , , "Artist" ListView1.ColumnHeaders.Add , , "Name" ListView1.ColumnHeaders.Add , , "Image" ListView1.ColumnHeaders.Add , , "Rating" 'ListView1.ColumnHeaders.Add , , "Song ID" ListView1.ColumnHeaders.Add , , "Total Votes" ListView1.ColumnHeaders.Add , , "Page" ListView1.ColumnHeaders.Add , , "Referrer" ListView1.ColumnHeaders.Add , , "pageWindowName" Timer1.Interval = 1000 ' <-- 10 seconds Timer1.Enabled = True End Sub Private Sub Timer1_Timer() ListView1.ListItems(1).ListSubItems(4).Text = Format(TimeSerial(0, 0, CLng(Timer - mStart)), "hh:nn:ss") End Sub