Réponse acceptée !
Sur PocketPc en .net cela donne
Dim cheminCourant as string =System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)
Ne pas oublier de rajouter le"\" à la fin pour rajouter un nom de fichier derrière.
Juste faites-le