hola, buenas a todos, tengo un prblema con vb6...
tengo este conjunto de lineas
frmGuarda.RichTextBox1.TextRTF = "NUMERO DE ORDEN: " & Text1(0).Text & " TIPO DE ORDEN: " & lblPoG.Caption & Text1(1).Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "NOMBRE DEL CLIENTE: " & Text1(2).Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "TELEFONO: " & Text1(3).Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "CELULAR: " & Text1(4).Text & vbCrLf & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "FEHA DE ENTREGA: " & Text1(5).Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = " 10-> " & Text1(6).Text & " 9 A 0-> " & Text1(7).Text & " CS12-> " & Text1(8).Text & " CS13-> " & Text1(9).Text & " CS14-> " & frmRPCs.Text1(10).Text & " CS15-> " & frmRPCs.Text1(11).Text & " CS16-> " & Text1(12).Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "COMENTARIOS: " & vbCrLf
frmGuarda.RichTextBox1.TextRTF = " " & RTXTcomentarios.Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "PERSONAL RESPONSABLE" & vbCrLf
frmGuarda.RichTextBox1.TextRTF = vbCrLf & "AGENTE QUE ATENDIO: " & Combo1.Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "TECNICO: " & Combo2.Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "RPC? SI O NO -> " & lblSIoNO.Caption & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "EL CLIENTE ASEGURO QUE ... " & vbCrLf
frmGuarda.RichTextBox1.TextRTF = "EN CUANTO A PROCESOS... " & vbCrLf

el problema es que solamente me ejecuta la ultima linea de codigo, alguien save a que se deve este problema????.

Hola, pues claro ,se va sobreescribiendo porque no le decis que lo agrege al texto ya existente, debes hacerlo asi:

Código:

frmGuarda.RichTextBox1.TextRTF = frmGuarda.RichTextBox1.TextRTF & "NUMERO DE ORDEN: " &
Text1(0).Text & " TIPO DE ORDEN: " & lblPoG.Caption &
Text1(1).Text & vbCrLf
frmGuarda.RichTextBox1.TextRTF = frmGuarda.RichTextBox1.TextRTF & "NOMBRE DEL CLIENTE: " & Text1(2).Text & vbCrLf

y asi con todos los otros...

saludos.

funciona, muchas gracias