Ayuda. Copiar y pegar texto de un Richtextbox a un textbox

[**Aincrad**]

hola. soy yo de nuevo , jeje .     . buen me he encontrado con un problema.

bueno como dice el titulo , quiero copiar un texto de un Richtextbox y pegarlo a un textbox , bueno hasta hay es facil , pero cunado se copia al textbox no se conservan los saltos de linea . ya he intentado con vbnewline pero la verdad no se como hacerlo.

bueno tengo este codigo para copiar:

Código (vbnet) [Seleccionar] Expandir

Clipboard.SetText(RichTextBox1.Text)

y este para pegar :

Código (vbnet) [Seleccionar] Expandir

If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then
           If TextBox1.SelectionLength > 0 Then
               If MessageBox.Show("Do you want to paste over current selection?", _
                   "Cut Example", MessageBoxButtons.YesNo) = DialogResult.No Then
                   TextBox2.SelectionStart = TextBox2.SelectionStart + _
                       TextBox2.SelectionLength
               End If
           End If
           TextBox2.Paste()
       End If

el problema es que cuando pego el texto al Textbox no se conservan los saltos de linea y se pone todas la palabras pegadas . nesesito ayuda con ese problemilla .  

Gracias de antemano.  

[Eleкtro]

Reemplaza el caracter de salto de linea:

Código (vbnet) [Seleccionar] Expandir

TextBox1.Text = RichTextBox1.Text.Replace(ControlChars.Lf, Environment.NewLine) ' ControlChars.Lf = Convert.ToChar(&HA)

PD: no entiendo por qué intentabas hacer eso de copiar el texto al portapapeles con la intención de transferir el texto de un RichTextBox a un TextBox...

Saludos.

[**Aincrad**]

gracias , @Elektro si me funciono .  de verdad me quedo impresionado de tanto conocimiento que posees sobre programacion .    . debes haber estudiado durante un buen tiempo.  Gracias , de verdad muchísimas gracias. 

PD : yo había intentado algo parecido pero no me funciono .

Código (vbnet) [Seleccionar] Expandir

TextBox2.Text = RichTextBox1.Text    Gracias de nuevo