Private Sub Command1_Click()
' Kopierar bilden till clipboard.
Clipboard.Clear
Clipboard.SetData Picture1.Picture

' Klistrar in bilden i RichTextBox kontrollen.
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub