Colocar puntero siempre al final del RichTextBox

[hunter18]

Como utilizo las propiedades SelStart y SelLenght como coordenadas para colorear determinada palabra del RichTextBox1 necesito hacer lo siguiente para NO perder dichas coordenadas.

Lo que necesito es que cuando se enfoque dentro de Rich1 para escribir algo solo se enfoque y aparesca el puntero si esta al final de la cadena, por ejemplo en el Rich esta la palabra "El foro de leandro" y si le hago click en f,o,r,d ó cualquier palabra no se pueda enfocar y se quede como desabilitado pero si coloco el puntero despues de la ultima "o" de "leandro" entonces si aparesca el puntero y me permita seguir escribiendo, no se si me deje entender.

Alguna sugerencia para hacer esto, saludos.

[pkj]

Quizá con esto te arregles:

Código vb:

Private Sub RichTextBox1_GotFocus()
  RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub
 
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
  RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub
 
Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub
 

De ese modo el cursor siempre se coloca al final.

Saludos

[hunter18]

Funciona pero todavia me permite seleccionar texto aunque despues coloca el puntero al final y eso esta bien, lo que faltaria es que no permite seleccion de texto o en todo caso lo que quiero exactamente es que el puntero solo aparesca cuando lo coloque al final de la cadena caso contrario no aparesca nada, esto para evitar parpadeos, saludos y gracias por responder.