Visual Basic - Ayuda con la instrucción SHELL

Tengo el siguiente problema :

Ejecuto un XCOPY desde mi aplicación de la siguiente manera

Dim zcff
strShell = "xcopy C:\HSC\*.* C:\HSC2 /v /f /d /s /e /k /-y"
zcff = Shell(strShell, vbHide)

Estas instrucciones se ejecutan mediante un control Timer cada intervalo de 20 segundos.
Mi problema es que al ejecutar el archivo .EXE, me aparece cada 20 segs. una nueva pantalla, a parte de la que ya está abierta... de tal forma que se llena de ventanas mi sistema...

Si pudieran ayudarme les agradecería muchísimo...

Saludos...

Hola, blokea el timer en el primer bucle. Es decir por Ejem.:
if timer1.interval = 20 then
ejecucion de las instrucciones....
......
timer1.Enabled = False ' aki se blokea el timer, y solo mostrara una ventana
end if

Hector:
La función Shell devuelve el manejador del proceso, utilizalo para llamar al Api ExitProcess para cerrar la ventana. Ahora, disculpá que me meta, pero no hace falta utilizar XCOPY, es más eficiente crear una envolvente para shFileOperation. A ella la podés llamar en modo oculto. Otra manera es utilizar FileCopy de modo recursivo. O mejor aún utilizar el scripting CopyFile. Te sugiero cualquiera de estas tres alternativas para no lidiar con ventanas.

Saludos Ruri