Ovo si mnogo prosto uradio, ako bi uneo te slike u bazu bilo bi mnogo bolje, al evo ti jedno banalno resenje...
Code:
Dim jpegfile As String
JPEGFile = (direktorij & txtbarcod & ".jpg")
Picture1 = LoadPicture(JPEGFile)
If Picture1.Picture = 0 Then
JPEGFile = (direktorij & txtbarcod & ".bmp")
Picture1 = LoadPicture(JPEGFile)
End If