[VB6] Come funziona il timer

[xegallo]

io userei una sleep cmq
se vuoi col timer

dim t as byte

private sub form_load()
   timer1.interval = 1000
   t = 0
   do until t = 4 
      doevents
   loop
   timer1.enabled = false
end sub

private sub Timer1_timer()
   t = t + 1
end sub