|
Moin!
Einer der seltenen Fälle, in denen man bewusst On Error Resume Next anwenden kann.
On Error Resume Next
Image1.Picture = LoadPicture("Dateifpad" & logo & ".jpg")
Image2.Picture = LoadPicture("Dateifpad" & player1 & ".jpg")
Image3.Picture = LoadPicture("Dateifpad" & player2 & ".jpg")
Image4.Picture = LoadPicture("Dateifpad" & player3 & ".jpg")
Image5.Picture = LoadPicture("Dateifpad" & player4 & ".jpg")
Image6.Picture = LoadPicture("Dateifpad" & player5 & ".jpg")
Image7.Picture = LoadPicture("Dateifpad" & player6 & ".jpg")
On Error goto 0
|