Rich Text - How can I make Text not happen?

Hi all,

Likely to be an easy one this!!

I am using a rich text control to allow shortcuts to be dragged and dropped onto the window.

However, I don't want it to allow text to be written (just the shortcuts). I can't use the "Enabled" properties, as this would stop the shortcuts also.

I think I can put something in the KeyPress event to stop it, but not sure what? I can put a message box in there, and it is displayed before the text, but then it prints the text anyway.

Can anyone tell me how I stop text from being written in please?

Many thanks in advance!

Paul.

VB Code:

RichText1.Locked = True

Like this?

Thanks for the reply Wokawidget, but unfortunately this also prevents you from dragging shortcuts into the window.

Any other ideas?

Cheers!

Paul.

VB Code:

Private Sub txtDocument_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

That works a treat. Thanks very much Wokawidget

Cheers!

Paul.