Om Bild.gif inte finns vill jag öppna en annan bild som heter reserv.gif.

Men hur vet jag om bilden finns eller inte?
(If Pic=0 then?????) <--- Hur ser frågen ut?

Picture1 = LoadPicture("images\Bild.gif")
Form_No_Pic:
frmCode.Picture1 = LoadPicture"images\reserv.gif")
End Sub

Tacksma för hjälp!

Vet inte om detta är det optimala sättet men jag skulle ha gjort så här:

on error goto loadreserve

din kod

exit sub

loadreserve :
frmCOde.Picture1=loadPicture("images\reserve.gif"

end sub

Hej
Ungefär så här skulle jag lösa det

On Error GoTo ReservBild
Picture1 = LoadPicture("C:\images\Bild.gif")
PicOk:
Exit Sub
ReservBild:
frmCode.Picture1 = LoadPicture("C:\images\reserv.gif")
Resume PicOk

mvh
Sven

Tusen tack!!!

Det var så jag ville ha det, nu funkar det.