Código (vb) [Seleccionar]
private sub form_load()
Dim Directorio As String
ChDir App.Path
ChDrive App.Path
Directorio = App.Path
text1.Text = Directorio 'aqui escribes la ruta desde donde te ehjecutas
end sub
Dime si te sirve... y si es lo q buscabas... esto es solo para obtener la ruta desde donde te ejecutas tu, o quieres saber la ruta de los programas iniciados segundo a segundo ?