Sample code [2008-06-07-PM-03-14-55]

        ' Begin_[2008_06_07_PM_03_14_20]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   Sample code [2008-06-07-PM-03-14-55]
        '  
        Dim SB As New System.Text.StringBuilder

        For i As Integer = 1 To 10
            SB.Append("  i = " & i)
            SB.Append(vbNewLine)
        Next

        Me.Do_PasteStringToTopOfRichTextBox(SB.ToString)

        'Me.RichTextBox1.Text = SB.ToString
        '  
        ' End_[2008_06_07_PM_03_14_20]