Conclusion??? el code esta bien y todo esto sobra
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúdim spath as string
Select case Val(Text1)
case Silverado
spath = "\silverado.bmp"
case Silverado2
spath = "\silverado.bmp"
case Silverado3
spath = "\silverado.bmp"
...........
end select
Image1.Picture = LoadPicture(App.Path & spath)