Try this:

WITH oWord.ACTIVEDOCUMENT
.SHAPES.ADDTEXTBOX(1, 50, 50, 100, 100)
.shapes(.shapes.count).select
ENDWITH
with oword.selection
.Inlineshapes.AddPicture("D:\vfp6default\projects\epassquotebuilder\support\EPASS.jpg",.f.,.t.)
.TypeParagraph
.TypeText("Picture added")
endwith

>I have managed to create a textbox with this...
>

>WITH oWord.ACTIVEDOCUMENT
>.SHAPES.ADDTEXTBOX(1, 50, 50, 100, 100)
>ENDWITH
>

>
>but am unable to use .AddPicture - the VBA code I get is as follows...
>
>

> ActiveDocument.Shapes("Text Box 2").Select
>    Selection.InlineShapes.AddPicture FileName:="D:\vfp6default\projects\epassquotebuilder\support\EPASS.jpg", LinkToFile:=False, SaveWithDocument:=True
>

>
>Any ideas how to add pictures and text into the textboxes?
>
>Thanks