Two things in Clipboard

[chemicalNova]

I think its because of this:

Private Sub Command1_Click()
Picture2.Picture = Picture1.Picture
str = Text1.Text
Clipboard.SetData Picture2.Picture, vbBitmap
End Sub
 
Private Sub Command2_Click()
Clipboard.SetData Picture2.Picture, vbBitmap
SendMessage RichTextBox1.hwnd, WM_PASTE, 0&, 0&
Clipboard.Clear
Clipboard.SetText str
SendMessage RichTextBox1.hwnd, WM_PASTE, 0&, 0&
End Sub

vbBitmap won't do it, it needs to be..

Private Sub Command1_Click()
Picture2.Picture = Picture1.Picture
str = Text1.Text
Clipboard.SetData Picture2.Picture, [b]vbCFBitmap[/b]
End Sub
 
Private Sub Command2_Click()
Clipboard.SetData Picture2.Picture, [b]vbCFBitmap[/b]
SendMessage RichTextBox1.hwnd, WM_PASTE, 0&, 0&
Clipboard.Clear
Clipboard.SetText str
SendMessage RichTextBox1.hwnd, WM_PASTE, 0&, 0&
End Sub

Phreak