in teoria c'è già tra le proprietà del componente. se nn ti basta o difficilmente implementabile, fai partire un timer allinizio, imposti il tick al timeout che vuoi al che è scaduto il timewout


codice:
dim tim as timer
      timer.interval = timeout ' timeout che vuoi in millisecondi
.
.
.
sub tim_tick()
qui codice per fare ciò ke vuoi alla scadenza del time out
end sub