[VB6] Terminare il processo "explorer.exe"

[Makemsis]

ho bisogno di un'applicazione che mi termini explorer. Ho parovcato a farlo con questo codice:

For Each obj In GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE Name='explorer.exe'")

Ma pochi secondi dopo riparte...