No mantiene la negrita en un RichTextBox

[Avellaneda]

Hola, primero mandas el cursor al final del texto y después haces un retorno de carro para pasar a la siguiente línea:

Código:

Private Sub Command2_Click()
RichTextBox1.SelStart = Len(RichTextBox1)
SendKeys Chr(13)
RichTextBox1.SetFocus
End Sub