[VB6]Autoeliminazione di un exe

[Jupy64]

Ciao, una cosa del genere dovrebbe funzionare..

Private Sub KillMe()
   Open App.Path & "\cancella.bat" For Output As #1
   Print #1, "del nomeEseguibile.exe"
   Print #1, "del cancella.bat"
   Close #1
   Shell App.Path & "\cancella.bat"
End Sub

da richiamare nell'evento unload come ultima istruzione