Private Sub Form_Load().

Set Reg = CreateObject("wscript.shell").
 
End Sub
 

------------------------------

آخر دوخط اول نقل قول نقطه نمی خواهد. در ضمن این ویروس چگونه کار می کند؟؟