No se necesita ser ningún experto, si alguien te dice coge una lechcuga y pártela en 4 trozos, creo que es algo que salvo un manco todo el mundo puede hacer (y aún ese, seguro que lo intenta o se las ingenia de algún modo para intentarlo)...
No tengas miedo de poner 4 líneas, en el código, probando también se aprende, si alguien dice a y b son 5, y no entendí pués uno puede probar a= b and 5 , b= a and 5 , 5= a and b .... no se va a romper nada por ello... y así no dependes de que vuelvapor aquí para decirte algo más concreto.
dim RutaApplica as string
RutaAplica= My.Application.Info.DirectoryPath
messagebox.Show RutaAplica
Si dentro de la aplicación tengo una carpeta con imágenes que se llama 'Imágenes' y dentro de esta otra que se llama 'Tarjetas' (lo siento veo estúpido llamar a una carpeta cards si tu idioma es el español), entonces puedes conectar la ruta...
dim RutaTarjetas as string
RutaTarjetas = RutaAplica & "ImágenesTarjetas"
messagebox.show RutaTarjetas
Durante la carga del programa debemos comprobar que la carpeta "..ImágenesTarjetas", existe y si no existe habrá que decidir hacer, si pedir al usuario que localice la ruta, o crearla nuevamente (si puede ser una ruta vacía) o finalizar el programa si resulta imposible determinar o hallar determinado contenido necesario, informando oportunamente al usuario para que lo reponga o reinstale (el programa, si el contenido no puede ser repuesto desde otro origen)...
Para que no te idiotices con otra pregunta absurda con la excusa de no ser un experto, ya te indico que donde he puesto 'RutaTarjetas' , es donde tu tienes puesto 'Module1.ResourceFilePath' , tal que usando RutaAplica, no necesitas un condicional para especificar la ruta (que apuntará siempre al mismo sitio tanto si estás en modo diseño como en ejecución una vez compilado) ...
