<div>
Hi, 
 
Maybe like this 

<pre><code class="code-1 nolinks" id="code-20-41402988-1">StrText = &quot;1&quot; &amp; Environment.NewLine &amp; &quot;2&quot; &amp; Environment.NewLine &amp; &quot;3&quot; &amp; Environment.NewLine &amp; &quot;4&quot; &amp; Environment.NewLine &amp; &quot;5&quot; &amp; Environment.NewLine &amp; &quot;6&quot;
newText = &quot;7&quot;
StrText = Mid(StrText, InStr(1, StrText, Environment.NewLine) + Len(Environment.NewLine)) + Environment.NewLine + newText
</code></pre>
Regards
</div>

<div>
How do I implement this?...
</div>

Project1.zip

<div>
Thanks Martin Liss.... it works.... 
But how do I invoke it in the textbox event change area? ...or, can I call it programmatically without physically hitting the ENTER key? I would like the code to run in the event change area of the textbox---that area fires each time the content of the textbox increases by one line----this would also make the textbox decrease by one line and I would always have 7 lines in the box.
</div>

<div>
I'm not sure I can do this. The problem is that any change to the textbox causes the Change event to fire so when the 8th line is entered and I try to remove the first row and replace what's there with everything but the first row, the Change event event fires again. I've got to leave for a while so I'll give it another try later but I'd say my being able to do it is 50/50.
</div>

<div>
Remove the old code and then copy/paste this into the code window. 
 

<pre><code class="code-10 nolinks" id="code-20-41403854-1">Private Sub Text1_Change()
 Dim lngCount As Long
 Dim lngLineIndex As Long
 Dim lngLength As Long
 Dim strBuffer As String
 Dim strText As String
 Dim i As Integer
 Const MAX_LINES = 7
 Static bBypass As Boolean
 
 If bBypass Then
 bBypass = False
 Exit Sub
 End If
 
 If Right(Text1.Text, 2) &lt;&gt; vbCrLf Then
 Exit Sub
 End If
 
 lngCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
 
 If lngCount &gt; MAX_LINES + 1 Then
 With Text1
 For i = 0 To lngCount - 1
 If i &lt;&gt; 0 Then
 'Get line index
 lngLineIndex = SendMessage(.hwnd, EM_LINEINDEX, i, 0)
 'get line length
 lngLength = SendMessage(.hwnd, EM_LINELENGTH, lngLineIndex, 0)
 'resize buffer
 strBuffer = Space(lngLength)
 'get line text
 Call SendMessageStr(.hwnd, EM_GETLINE, i, ByVal strBuffer)
 'Accumulate the text to be kept
 If i &lt; MAX_LINES + 1 Then
 strText = strText &amp; strBuffer &amp; vbCrLf
 Else
 strText = Left(strText &amp; strBuffer, Len(strText &amp; strBuffer) - 2)
 End If
 End If
 Next
 bBypass = True
 ' Doing this triggers the Change event which is the event we're in so
 ' the next line doesn't get executed until the 2nd time because then
 ' the text will be the same so there's no change. Setting bBypass helps
 ' in getting around that problem.
 Text1.Text = strText
 Text1.SelStart = Len(Text1.Text)
 End With
 End If

End Sub
</code></pre>
</div>

<div>
I got this to work by customizing it. I took your code that specified the # of lines to retain in the box, and I combined it with some other code I had that removed the top line of a multiline textbox. The new hybrid code will remove the top line once the 8th line is inserted---and I just created a separate sub that is called by the textbox change event. Thanks Martin.... I had to hack it, but your code inspired me.
</div>

<div>
Can you post your code or a zip of your app so I can see it. 
 
In any case you're welcome and I'm glad I was able to help. 
 
In <a href="https://www.experts-exchange.com/M_258447.html" rel="ugc">my profile</a> you'll find links to some articles I've written that may interest you. 
 
Marty - MVP 2009 to 2015 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Experts Exchange MVE 2015 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Experts-Exchange Top Expert Visual Basic Classic 2012 to 2015
</div>

<div>
Here's my solution that works.... you can call this sub from a textbox change event. If there are sufficient lines in the box, it will start removing the top one every time you add a new one. 
 

<pre><code class="code-10 nolinks" id="code-20-41403968-1">Sub RemoveTickerLine()

 Dim lngCount As Long
 
 '_____Get Line count
 lngCount = SendMessage(lb_ResultsTicker.hwnd, EM_GETLINECOUNT, 0, 0)
 
 If lngCount &gt; 5 Then
 With lb_ResultsTicker

 '_____REMOVE *** FIRST LINE *** FROM MULTILINE TEXTBOX
 Dim lineBegin As Long, lineEnd As Long
 Dim curPos As Long
 
 lb_ResultsTicker.SelStart = 0
 
 curPos = lb_ResultsTicker.SelStart + 1 
 
 '_____Find where the line begins and ends
 lineBegin = InStrRev(lb_ResultsTicker.Text, vbCrLf, curPos)
 lineEnd = InStr(curPos, lb_ResultsTicker.Text, vbCrLf)
 
 '_____Account for the possibility that you are on
 '_____the top line, or the bottom line (or there's only one line),
 If lineBegin = 0 Then lineBegin = -1
 If lineEnd = 0 Then lineEnd = Len(lb_ResultsTicker.Text) - 1
 
 '_____Remove the line
 lb_ResultsTicker.Text = Left$(lb_ResultsTicker.Text, lineBegin + 1) &amp; Mid$(lb_ResultsTicker.Text, lineEnd + 2)
 lb_ResultsTicker.SelStart = 0

 End With
 End If



End Sub
</code></pre>
</div>

<div>
You may be using the textbox in a different manner than I expect but I think there's a problem. Your line 30 forces to manually select below the last line before you add a new line, but if you make a mistake and place the cursor at the end of the 4th line and press return you lose a line.
</div>

<div>
Oh! Your new post says you are using a listbox and not a textbox so ignore my last post.
</div>

<div>
<div class="content wysiwyg-content">
Using VB6, I want to add a new line of text to the bottom of a multiline textbox, and remove the top line immediately thereafter. So, the 'newest' line is always at the bottom, and the oldest line is always at the top. I would like the box to have 7 lines of text in it before this removal procedure takes place----thus the textbox will always have 7 lines of text in it. 
 
I guess you would call this a 'vertical scrolling effect', with a 7-line buffer of text that has to be maintained.... 
 
Anyone know how to do this?....many thanks.
</div>
</div>

Using VB6, I want to add a new line of text to the bottom of a multiline textbox, and remove the top line immediately thereafter. So, the 'newest' line is always at the bottom, and the oldest line is always at the top. I would like the box to have 7 lines of text in it before this removal procedure takes place----thus the textbox will always have 7 lines of text in it.

I guess you would call this a 'vertical scrolling effect', with a 7-line buffer of text that has to be maintained....

Anyone know how to do this?....many thanks.

Add &amp; Remove lines from top/bottom of VB6 multiline textbox

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Add &amp; Remove lines from top/bottom of VB6 multiline textbox

Add & Remove lines from top/bottom of VB6 multiline textbox