bueno
Jassss,ahora mas o menos entendi mejor lo que queres hacer con tu explicacion,digamos que este codigo le hice una mezcla de cosas para que haga lo que vos queres jejej,pero puede haber otra forma,pero bueno esta es la que yo encontre..primero tiene una funcion para limitar el numero de lineas de un textbox multilinea y despues lo que hice fue una matriz para ir sacando el resto de las lineas y copiarlas al otro textbox:
Código:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Function Limitar(tbLimit As TextBox, lMaxNumLines As Long) As Boolean
Dim lLength As Long, sText As String
Const EM_GETLINECOUNT = &HBA, EM_LINELENGTH = &HC1
Const EM_SETSEL = &HB1, EM_REPLACESEL = &HC2
On Error GoTo ErrFailed
With tbLimit
Do
If SendMessage(.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&) > lMaxNumLines Then
sText = .Text
If Right$(sText, 2) = vbNewLine Then
.Text = Left$(sText, Len(sText) - 2)
.SelStart = Len(sText) - 2
Else
.Text = Left$(sText, Len(sText) - 1)
.SelStart = Len(sText) - 1
End If
Else
Exit Do
End If
Loop
End With
Limitar = True
Exit Function
ErrFailed:
Limitar = False
End Function
Private Sub Command1_Click()
Dim tabla(2) As String
Dim tabla2(2) As String
Dim cont As Long
Dim cont2 As Long
For a = 0 To 2
tabla(0) = a
For b = 0 To 2
tabla(1) = b
For c = 0 To 2
tabla(2) = c
cont = cont + 1
cont2 = cont2 + 1
If cont = 30 Then
cont = 1
Me.Text1(0) = Me.Text1(0) + vbCrLf + vbCrLf
End If
For x = 0 To 2
If tabla(x) = 0 Then tabla2(x) = "1"
If tabla(x) = 1 Then tabla2(x) = "X"
If tabla(x) = 2 Then tabla2(x) = "2"
Text1(0).Text = Me.Text1(0) + tabla2(x)
Next
Me.Text1(0) = Me.Text1(0) + vbCrLf
Next
Next
Next
Static i As Integer
Dim lines() As String
lines = Split(Text1(0), vbCrLf)
For i = 10 To 27
Text1(1) = Text1(1) & lines(i) & vbCrLf
Next
Limitar Text1(0), 10
End Sub
apretas el boton y te aparecen solo 10 lineas en el primer textbox y en el otro te aparecen todas las que siguen...
saludos.