Public Class xRTF
    Inherits RichTextBox
 
    Public Sub AppendLineErb(ByVal s As String)
        Me.AppendText(s & Environment.NewLine)
    End Sub
 
 
End Class

Imports System.Runtime.CompilerServices
 
Module RTFExtensions
 
    <Extension()> _
    Public Sub AppendLineEx(ByRef rtf As RichTextBox, ByVal s As String)
        rtf.AppendText(s & Environment.NewLine)
    End Sub
 
End Module

Public Class Form1
 
    Private WithEvents rtf1 As New xRTF
    Private WithEvents rtf2 As New RichTextBox
 
    Public Sub New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
 
        Me.Controls.Add(rtf1)
        rtf2.Top = rtf1.Top + rtf1.Height
 
        Me.Controls.Add(rtf2)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        rtf1.AppendLineErb("Hallo")
        rtf1.AppendLineErb("Du")
 
        rtf2.AppendLineEx("Hallo")
        rtf2.AppendLineEx("Du")
 
 
 
    End Sub
End Class

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]