关于VBA问题(100分)

如何用VB6将一幅图片插入到word,最好能给一段源码?
最好是VB源码,DELPHI也可以,或WORD宏命令出可以.

Sub Macro1()
'
'
Selection.InlineShapes.AddPicture FileName:= _
"C:/Documents and Settings/antsoft/Mydo
cuments/My Pictures/样品.jpg", _
LinkToFile:=False, SaveWithDocument:=True
End Sub