como puedo colocar en un label la ruta del directorio en el que se encuentra el programa?
asi
label1.caption = app.path
y mas completo
(logicamente agregas un label con el nombre label1)
label1.caption = app.path & "\" & app.exename & ".exe"
Ojo que cuando la ruta que devuelve es el directorio raiz de la unidad, la cadena termina en \, en los demas casos no.