Cerrar Servicio cuando se reinicie la pc

[loquillo7]

bueno amigo haber si me puedes ayudar lo que pasa es que solo necesito un boton que por ejemplo inicialize el servicio y despues de eso cierre la ventana de DOS, he heco esto:

Private Sub Command3_Click()
Shell "command.com /k net start ""BMatic - Servicio de Ticketera""", vbMaximizedFocus
KillProcess "ntvdm.exe"
End Sub

pero cierra muy rapido la ventana antes de que inicialize el servicio como podria darle un tiempo para que inicalize el servicio y cierre despues la ventana nose sera 5 a 10 seg gracias.