[AL_BRNS]

السلام عليكم

قم باظافة    Microsoft Word 14.0 Object Library

عن طريق :  Project > References > Microsoft Word 14.0 Object Library

وضع الكود التالي بزر امر :

PHP كود :

 Private Sub Command1_Click()
Dim objWord As New Word.Application
objWord.Documents.Add
Clipboard.Clear
Clipboard.SetData Image1.Picture
objWord.Selection.Paste
Clipboard.Clear
objWord.Visible = True
Set objWord = Nothing
End Sub 


                                                                                           
بالتوفيق اخي .