وجدت هذا المثال فاحببت ان تعم الفائده


كود :
With DataReport1.Sections(3)
Set .Controls("image1").Picture = Pic.Picture
End With
