Bueno, lo de averiguar el path desde donde se está ejecutando el programa, lo puedes hacer de la siguiente manera:
Dim pathApp as String
pathApp = App.Path
Con eso tendrías en la variable
pathApp la ruta de donde se está ejecutando la aplicación. Ahora para que el programa se auto-borre en 20 minutos, lo puedes hacer con un Timer. No recuerdo exactamente cual es el número que equivale a 20 minutos pero lo puedes calcular
Después lo que debes de hacer es en el evento "Unload" que se borre el programa con la instrucción Shell. Sería "algo así":
Shell "del " & pathApp & "\" & App.EXEname & ".exe"
La verdad es que no estoy seguro de que ese sea el código ya que no lo he testeado, de todos modos si te arroja algún error infórma por aquí