Pictures In A Rich Text Box

How can i put pictures into a rich text box?

Steve

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

then place this code to command1_click():
Clipboard.Clear
Clipboard.SetData Picture1.Picture
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0

Wow thanks, that works great! :)

Steve

is there a way to do it without using the clipboard?

Thanks!

Tom