Código
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 ?