Insert images into rtfText
Hy All.
In my notepad project I have inserted the possibility to insert an image. But I get an error message:
Run time error 438.
Message error: Property or method not supported by the object.
Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Picture
SendMessage Screen.ActiveForm.rtfText.hwnd, WM_PASTE, 0, 0&
Screen.ActiveForm.rtfText.SetFocus
Unload Me
End Sub
Anyone of you have ideas where is error ?
Thanks in advance.
|