No mantiene la negrita en un RichTextBox

[ci2000]

Hola, en un RichTextBox hice que se pueda poner en negrita a un texto seleccionado y en otro boton se puede agregar una nueva linea.
La negrita funciona bien, pero al hacer click en el boton que agrega una nueva linea, a todo el texto que tenia negrita se lo quita. No sé porque pasa esto.
Colocanto un RichTextBox y con CommandButton lo pueden probar.

Código:

Option Explicit
Private Sub Command1_Click()
 RichTextBox1.SelBold = True
 RichTextBox1.SetFocus
End Sub

Private Sub Command2_Click()
 RichTextBox1.Text = RichTextBox1.Text + vbNewLine
 RichTextBox1.SelStart = Len(RichTextBox1)
 RichTextBox1.SetFocus
End Sub

Private Sub Form_Load()
 Command1.Caption = "Negrita"
 Command2.Caption = "Nueva línea"
 RichTextBox1.Text = "Este texto es para probar"
End Sub

Muchas gracias desde ya por las respuestas.
Saludos

[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

[ci2000]

Gracias por la respuesta, anduvo al pelo.

Ahora se me presentó este caso:

Código:

Private Sub Command1_Click()
 RichTextBox1.SelBold = True
 RichTextBox1.SetFocus
End Sub

Private Sub Command2_Click()
 RichTextBox1.SelStart = Len(RichTextBox1)
 SendKeys Chr(13)
 RichTextBox1.SetFocus
 RichTextBox1.Text = RichTextBox1.Text & "Nueva línea."
 RichTextBox1.SelStart = Len(RichTextBox1)
 RichTextBox1.SetFocus
End Sub

Private Sub Form_Load()
 Command1.Caption = "Negrita"
 Command2.Caption = "Nueva línea"
 RichTextBox1.Text = "Este texto es para probar"
End Sub

Necesito agregar el texto "Nueva línea" en el siguiente renglón y que me siga manteniendo las negritas. El caso es que al texto lo coloca a continuación del primer renglón y además me quita las negritas.

Gracias por las respuestas.
Saludos

[Insomnia]

Hola

No estoy seguro, pero puede ser por utilizar la propiedad .text, prueba con la propiedad .textRTF

--Saludos--

[Avellaneda]

Sólo le tienes que añadir al envío de la tecla de retorno de carro, el texto que quieres excribir

SendKeys Chr(13) & "Nueva línea."

el resto del código no varía.