Visual Basic - obtener dir de donde se sta ejecutando un programa

como se obtiene esa direccion y como podemos hacer para q el usuario pueda escoger la dir donde ponerlo

No sé en dónde lo quieres mostrar, pero si colocas lo siguiente en en Load del Form, te dirá la ruta del programa en un Label, lo de que el usuario escoga dónde ponerlo no te lo entiendo bien.

Label1.Caption = App.Path

Que el programa hecho en VB pase el programa a otra parte?
Supongo que eso sería pasar la carpeta completa en donde se encuentra el programa a otra parte del disco duro.
Perdon por el mal entendido de lo segundo.