Mettiamo che il programma che deve essere distrutto si chiama programma.exe e quello che deve eseguire la distruzione si chiama killer.exe. Mettiamo che siano entrambi nella stessa cartella.

Mettiamo che il timer dell'applicazione principale programma.exe si chiami Timer1. Allo scadere del tempo del Timer1 verrà avviata l'applicazione killer.exe che eliminerà il programma programma.exe

Nell'evento Form_Load dell'applicazione inserisci le seguenti istruzioni:
Private Sub Form_Load ()

'Disabilita il timer per resettarlo
Timer1.Enabled=False

'Imposta il tempo del timer
Timer1.Interval=10000

'Avvia il timer
Timer1.Enabled=True

End Sub
NOTA: in questa stringa di codice il timer è stato impostato a 10 secondi. Per impostare un intervallo personalizzato, modifica il valore dopo Timer1.Interval= . Tieni conto che il valore è espresso in millisecondi: 1000 equivale a 1 secondo.


Nell'evento Timer1_Timer dell'applicazione inserisci la seguente stringa:

Private Sub Timer1_Timer()

'Esegue il programma distruttore
Shell App.Path & "\killer.exe"

'Chiude l'applicazione
End

End Sub
Compila l'applicazione col nome di programma.exe e chiudi il progetto.

Crea un nuovo progetto VB che si riferisca all'applicazione killer.exe
Una volta aperta, l'applicazione killer.exe aspettarà 3 secondi prima di eseguire l'eliminazione del file programma.exe. In questo modo daremo il tempo di chiudersi a programma.exe ed eviteremo errori.
Nel progetto di killer.exe crea un oggetto Timer che chiameremo Timer

Nell'evento Form_Load incolla:

Private Sub Form_Load()

'Disabilita il timer per resettarlo
Timer.Enabled=False

'Imposta il tempo del timer a 3 secondi
Timer.Interval=3000

'Abilita il timer
Timer.Enabled=True

End Sub
Nell'evento Timer_Timer copia il seguente testo:

Private Sub Timer_Timer ()
'Elimina l'applicazione principale programma.exe
Kill App.Path & "\programma.exe"

'Chiude l'applicazione killer
End

End Sub
A questo punto compila l'applicazione killer.exe nella stessa cartella di programma.exe
Dovrebbe funzionare, ma non ne sono sicuro.