¿Cómo retrasar la ejecución del comando usando VB?

End Sub

Sub privado Form_Load()

i = 0

Fin Sub

Private Sub Timer1_Timer()

i = i + 1

Seleccionar caso i

Caso 1

Imprimir "Ejecutar archivo 2"

Shell "Ruta del archivo \file2.exe"

Timer1.Interval = 10000

Caso 2

Imprimir "Ejecutar archivo 3"

Shell "ruta del archivo \file3.exe"

Timer1.Interval = 5000

Caso 3

Imprimir "Finalizar archivo 2 y eliminar "

Shell "cmd /c taskkill /f /im file2.exe"

Elimina "ruta del archivo \file2.exe"

Timer1.Interval = 10000

Timer1.Interval = 5000

Caso 3

Imprimir "Finalizar archivo 2 y eliminar"

Shell "cmd /c taskkill / f /im file2.Interval = 10000

Caso 4

Imprimir "Finalizar archivo 1 y eliminar"

Shell "cmd /c taskkill /f /im file1 .exe"

Eliminar "ruta del archivo \file1.exe"

Timer1.Interval = 0

Timer1.Enabled = False

Finalizar selección

Fin Sub