[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الحبيب
هذا الكود بإذن الله يفي بالطلب

كود :

Dim PcName As String = "PcName"
        Dim OldRtf As String = RichTextBox2.Rtf
        RichTextBox2.Text = PcName & ": " & RichTextBox2.Text & vbNewLine & "________________________" & vbNewLine
        streamw.Write(RichTextBox2.Rtf)
        RichTextBox2.Rtf = OldRtf

بالتوفيق