Foro de elhacker.net

 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

manco, como separaste los comandos en batch?

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