inserisci l'oggetto Timer

setta la proprietà Interval ( 1000 = 1 secondo )

ogni secondo entra in automatico nella sub .........

Private Sub t1_Timer()
inserire il codice da eseguire
end sub

Bye !!!