como introducir pausa en programa?

[z_ane_666]

hola amigos ,estoy haciendo un programa que evita que ciertas juegos sean ejecutados (las cierra). 

El programa es simple. cada vez que el timer bat sea verdadero, empieza a cerrar
ciertos juegos usando una orden de batch (taskkill)

Código [Seleccionar] Expandir


'primero creamos 1 timer llamado bat que tiene 8000 de intervalo
Private Sub bat_Timer()
Dim path As String
If bat = True Then
    Shell "cmd.exe /c taskkill /f /im gta-vc.exe ", 0
    Shell "cmd.exe /c taskkill /f /im NyxLauncher.exe ", 0
    Shell "cmd.exe /c taskkill /f /im Diablo II.exe ", 0
    Shell "cmd.exe /c taskkill /f /im Frozen Throne.exe ", 0
   
     End If
End Sub


Pero este codigo tiene un inconveniente. Y es que va a ver redundancia de ordenes taskkill(por consiguiente, "lageo" del sistema) . Para evitar eso desearia poner una suerte de pausas o "esperar 5555 milisegundos para pasar a la siguiente instruccion" algo asi como

Código [Seleccionar] Expandir


'primero creamos 1 timer llamado bat que tiene 8000 de intervalo
Private Sub bat_Timer()
Dim path As String
If bat = True Then
    Shell "cmd.exe /c taskkill /f /im gta-vc.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im NyxLauncher.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im Diablo II.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im Frozen Throne.exe ", 0
   
     End If
End Sub


Pero lamentablemente no se mucho de VB . espero que me ayuden

saludos

[xkiz ™]

Código (vb) [Seleccionar] Expandir

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

' codigo
Sleep 5555 ' pausa
' resto del codigo



[z_ane_666]

listo funciona!

gracias