Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
    hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Private Const WM_PASTE = &H302
 
 
Sub InsertPictureInRichTextBox(RTB As RichTextBox, Picture As StdPicture)
       Clipboard.Clear
    Clipboard.SetData Picture
         Dim iStartPos As Long
     Dim iLength As Long
     With RTB1
 
     iStartPos = .SelStart
     SendMessage RTB1.hwnd, WM_PASTE, 0, 0
     iLength = .SelStart - iStartPos
     .SelStart = iStartPos
 
     .SelLength = iLength
     .SelProtected = False
     End With
 
 
 
Private Sub Command1_Click()
 InsertPictureInRichTextBox RTB1, LoadPicture("C:\test\" & "\" & "test.wmf")
RTB1.SaveFile ("C:\test\Test.doc")
End Sub