[RESOLVED] RichTextBox Insert Image while locked??

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!

VB Code:

[b]RTB1.Enabled = True[/b]
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
[b]RTB1.Enabled = False[/b]

?

lol.. too simple!! although I dont like the grey background so I will just do the Locked false / true
!!!

THANKS!!!!!!!

Quote:

---

Originally Posted by Static

lol.. too simple!! although I dont like the grey background so I will just do the Locked false / true
!!!

THANKS!!!!!!!

---

You're welcome :)