I have this code:
VB Code:
For X = 0 To picSmile.UBound If RTB1.Find(picSmile(X).Tag, tLoc) <> -1 Then RTB1.SelStart = RTB1.Find(picSmile(X).Tag, tLoc) RTB1.SelLength = Len(picSmile(X).Tag) Clipboard.Clear Clipboard.SetData picSmile(X).Image SendMessage RTB1.hWnd, WM_PASTE, 0, 0 End If Next
if the RTB is not locked or disabled.. it works fine...
but I dont want the use to be able to copy or anything in the RTB
with Enabled = False.. all the formatting looks right.. but the images wont insert...
How do I get around this?
Thanks!




Reply With Quote