Дано два поля RichTextBox1 и RichTextBox2
В RichTextBox1 может быть ~2000 записей, в RichTextBox2 ~3(это только примерно, числа разные могут быть)
Нужно строку RichTextBox1 добавить к строке RichTextBox2 но так, чтоб на первую строку RichTextBox2 приходилось не более 300 строк из поля RichTextBox1
То есть:
RichTextBox1 RichTextBox2
00000000000 11111111111
99999999999 22222222222
88888888888 33333333333
77777777777
66666666666
55555555555
44444444444
и т.д.(до 2000)
Делаем чтоб было в RichTextBox3:
00000000000 11111111111
99999999999 11111111111
88888888888 11111111111
и так до 300 вариантов, потом переходим к строке 2 но не с начала списка RichTextBox1 а с того места где остановились, то есть с 300 строки
Как это сделать?

Private Sub RichTextBox1_Change()
Dim ctroki1 As Long
ctroki1 = SendMessageLong(RichTextBox1.hwnd, EM_GETLINECOUNT, 0&, 0&)
Label3.Caption = ctroki1
End Sub

Private Sub RichTextBox2_Change()
Dim ctroki2 As Long
ctroki2 = SendMessageLong(RichTextBox2.hwnd, EM_GETLINECOUNT, 0&, 0&)
Label2.Caption = ctroki2
End Sub

так я получаю кол-во строк.. нужно еще заранее определить, хватит ли нам записей в RichTextBox2 на все варианты с поля RichTextBox1 и записать сколько еще нужно добавить строк в RichTextBox2
Помогите пожалуйста