THanks to all who've helped.

Your suggestions have worked a treat.

tmpsheet = GetObject('','Word.document')
wdApp = tmpsheet.application
wdApp.Visible = .t.
wdApp.documents.Add
wdapp.Selection.InlineShapes.AddPicture("C:\vms\001-VAN.M-15030-SMALL.GIF", .F., .T.)

Colin