Function InsertClipBoardToRtb(ByRef oRtb As RichTextBox) As Boolean
If (Clipboard.GetFormat(vbCFBitmap)) Or (Clipboard.GetFormat(vbCFMetafile)) Then
oRtb.SetFocus
SendKeys "^{V}"
InsertClipBoardToRtb = True
Else
InsertClipBoardToRtb = False
End If
End Function
' EXEMPLE
Private Sub Command1_Click()
Call InsertClipBoardToRtb(RichTextBox1)
End Sub