[学习日记]在文本框最前面一行追加新内容的一个SUB

代码如下：

    Private Sub appendresult()Sub appendresult(ByVal newresult As String)
        Dim newlines() As String = New String(resultsbox.Lines.Length) {}
        resultsbox.Lines.CopyTo(newlines, 1)
        newlines(0) = newresult
        resultsbox.Lines = newlines
    End Sub

首先定义一个NEWLINES()的字符串数组，动态定义它的下标为resultsbox.line.length
resultsbox是用来显示结果的文本框
然后然resultsbox里的内容用resultsbox.lines.copyto()方法，复制到定义的newlines数组里从下标为1开始存储，
再向newlines(0)里追加newresult的内容
再把resultsbox.lines的内容赋值为newlines

其实在这里可以把resultsbox.lines看成一个一维数组
resultsbox.lines.length其实就是它的最大下标值

调用这个SUB
appendresult("this is new text in the top")
这样新增加的内容就在这个名为resultsbox文本框的最前面一行了。