For f = 1 To TotalRegistros
foto(f).Picture = LoadPicture(fPrograma(f) + ".jpg") ' Coloca Foto
Next
End Sub
' Si no existe una foto pasa a la siguiente por el RESUME. si se hace con el pograma EXE vá perfectamente, pero con visual basic dá ERROR al no encontrar alguna foto.