Option Explicit
 
' benötigte API-Deklatation
Private Declare Function HideCaret Lib "user32" _
  (ByVal hwnd As Long) As Long
 
Private Sub Form_Load()
  RichTextBox1.Locked = True
End Sub
 
Private Sub RichTextBox1_GotFocus()
  HideCaret RichTextBox1.hwnd
End Sub
 
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
  HideCaret RichTextBox1.hwnd
End Sub
 
Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
  HideCaret RichTextBox1.hwnd
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de