Por cierto, ¿te has fijado que en está líneaParece lógico, testeando los valores con MsgBox:Código: Text
TemCard = Val(GetVar(App.Path & "cards.ini", "AMMOUNT", "CardAmmount"))
no añades "" a App.Path y que en ésta siguiente sí:Código: Text?
B1.Picture = LoadPicture(App.Path & "GFX" & TemCarRoute)
:P