RichTextBox Cursor Problem

[shaykan]

I have a RichTextBox Control on my form and he stand-alone.
I’m presenting text in it and the property Locked=True, The problem is that I can’t hide the cursor.
If there is another control on the form and I pass the focus to him it’s working but unfortunately I can’t put another control.
Is there any way to hide the cursor from the RichTextBox?

Thanx

[Hack]

Private Declare Function HideCaret Lib "User32" (ByVal hWnd As Long) As Long
 
Private Sub RichTextBox1_GotFocus()
HideCaret RichTextBox1.hWnd
End Sub

[shaykan]

Thanx