You should probably use a static variable inside your procedure (if you need to have other procedures work with the values use a private module level variable (or in the case of multiple forms requiring access, use a public module variable or a module variable)).



Private Sub Timer1_Timer()
Static TimeCounter as integer

TimeCounter = TimeCounter + 1
If Time Counter = 5 then
'Do something you want every 5 seconds
TimeCounter = 0 'reset the counter every 5 seconds
End If

End Sub

Set your Timer Interval property to 10000 (every second) and you should be fine.