Do_PasteStringToTopOfRichTextBox [2008-03-25-PM-08-03-33]

    Private Sub Do_PasteStringToTopOfRichTextBox(ByVal AnyString As String)
        ' (本段程式之目的) Purpose:
        '     Do_PasteStringToTopOfRichTextBox [2008-03-25-PM-08-03-33]
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating:  60%
        ' (再利用的可能性) Chances of reuse:  40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 25 PM 08 00 58)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        With Me.RichTextBox1
            .Text = AnyString & vbNewLine & vbNewLine & .Text
        End With

    End Sub ' Do_PasteStringToTopOfRichTextBox
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -