Visual Basic - interrupcion

hola me gustaria hacer una interrupcion dentro de un evento de un boton, pero no se como hacerlo...

sub boton_clik()

picture1.picture=loadpicture("c:foto.jpg")

*(INTERRUPCION DE 3 SEGUNDOS)

picture1.picture=loadpicture("")

end sub

quiero cargar una foto y q se vea en imagen 3 segundos y luego q se descargue sola.

gracias

Buenas, puedes hacerlo de dos formas.
La primera creando un timeout:

sub boton_clik()
dim TOut as date

picture1.picture=loadpicture("c:foto.jpg")

*(INTERRUPCION DE 3 SEGUNDOS)
tout = dateadd("s",3,now)
do
doevents
loop until tout <= now

picture1.picture=loadpicture("")

end sub

La otra sería utilizando la función Sleep del API de Windows:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

sub boton_clik()

picture1.picture=loadpicture("c:foto.jpg")

*(INTERRUPCION DE 3 SEGUNDOS)
Sleep 3000

picture1.picture=loadpicture("")

end sub

saludos