Imposta "interval" a 500;
Metti il codice che vuoi benga eseguito ogni secondo all'interno di
codice:
Private sub Timer1_Timer()
   ...
end sub