¿Porque no funciona? codigo vb6

[RuniksFelipez]

Código (vb) [Seleccionar] Expandir

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Shell("Cmd.exe @echo off @title Formatear disco duro @echo ¿Desea formatear su disco duro? (y/n) @pause >nul @echo Analizando... @echo . @pause @cls @dir /s @dir /s @dir /s @echo . @echo . @pause @cls @echo Borrando archivos... @echo . @pause @cls @echo Archivos borrados @echo . @pause @cls @echo Presione una tecla para reiniciar. @echo . @pause >nul @echo Esto es una broma, no te asustes @pause>nul")
    End Sub
Porque no me ejecuta los comandos que puse? lo que hace es abrir solo el cmd

[Elemental Code]

manco, como separaste los comandos en batch?

Para hacer un batch asi, crea un .bat y ejecutalo.
No hagas esto