Russel

You don't have all VBA code translated into VFP code.

Change the code sequence to

.Selection.InlineShapes.AddPicture("F:\Contacts\Graphics\ACERO.BMP")
.LinkToFile = 0
.SaveWithDocument = 1


Please note that I'm not sure whether the add picture methode works that way. You have to check it by yourself.

HTH

Bruno