It must be fast because it is for a debug vieuw with very-very much
statements (It's for trace-ing)

I would like to thank everyone who tries to help me

Do you want to add new line to the very bottom of the TextBox?

--
Peter Wu
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.

Hi,

I mean an label or textbox where you can do something like this:

txTrace.addLine("something")

and then this line will appear at the top of the laber or textbox, and
the same time the lastline is dropped from the textbox or label.

First, i don't know if it is possible to access a textbox or label by
lines. I know i can add a line at the top with this:

txtTrace.text = "Something" & txtTrace.text

but this is very slow if there is very much data and it grows very hard
so everytime you copy it will be slower and slower...

But the goal is to trace something

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--
Peter Wu
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.

(please, forgive me my bad english)

and.. thanx for the time and tinking about my problem!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

For scrolling up, you might try something like this:

    Private Sub Post(ByVal TextIn As String)
        ' Provides scrolling log effect, limits lines to MAXLINES...
        Const MAXLINES = 5
        Dim CrLf As String = Environment.NewLine

        With TextBox1
            Do While .Lines.GetUpperBound(0) >= MAXLINES
                ' Remove first line of text
                .Text = .Text.Substring(.Text.IndexOf(CrLf) + CrLf.Length)
            Loop
            .SelectionStart = .Text.Length
            .SelectedText = TextIn & CrLf
        End With
    End Sub

Usage:

  Post("This is some text")
  Post("This text is on a new line")
  ...

HTH
LFS

If e.KeyValue = 13 Then

    TextBox1.Text = TextBox1.Text.Substring(0,
TextBox1.Text.LastIndexOf(Microsoft.VisualBasic.ChrW(13)))

End If

Hope this helps,
Eric
Visual Basic Team
--
This posting is provided "AS IS" with no warranties, and confers no rights.