''' <summary>
    ''' Sortiert alle bzw. nur die markierten Zeilen in alphabetischer 
    ' Reihenfolge auf- bzw. 
    ''' absteigend nach allgemeinen Regeln zum Vergleich von Zeichenketten.
    ''' </summary>
    ''' <param name="direction">Die Sortierrichtung der Zeilen.</param>
    ''' <remarks></remarks>
    Public Sub SortLines(ByVal direction As _
      System.ComponentModel.ListSortDirection)
        Call SortLines(direction, False)
    End Sub
 
    ''' <summary>
    ''' Sortiert alle bzw. nur die markierten Zeilen in alphabetischer 
    ' Reihenfolge auf- bzw. 
    ''' absteigend nach allgemeinen Regeln zum Vergleich von Zeichenketten.
    ''' </summary>
    ''' <param name="direction">Die Sortierrichtung der Zeilen.</param>
    ''' <param name="ignoreSelection">Bestimmt, ob die Markierung von Zeilen 
    ' ignoriert werden 
    ''' soll und somit der gesamte Text zeilenweise sortiert werden soll.</param>
    ''' <remarks></remarks>
 
    Public Sub SortLines(ByVal direction As _
      System.ComponentModel.ListSortDirection, _
                      ByVal ignoreSelection As Boolean)
        ' Überprüft, ob Text ausgewählt wurde
 
 
        ' Kein Text gewählt -> Alle Zeilen sortieren
        Dim lines As String() = RichTextBox2.Lines
 
        ' Sortiermethode aufrufen
        Array.Sort(lines, New LineComparer(direction))
 
        ' Zeilen mit sortierten ersetzen
        RichTextBox2.Lines = lines
 
    End Sub
 
    Public Class LineComparer
        Implements IComparer
 
        Private sortDirection As System.ComponentModel.ListSortDirection
 
        Public Sub New(ByVal direction As _
          System.ComponentModel.ListSortDirection)
            sortDirection = direction
        End Sub
 
        Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
          Implements IComparer.Compare
            ' x mit y vergleichen, nach allgemeinen Regeln für 
            ' Zeichenkettenvergleiche
            If sortDirection = _
              System.ComponentModel.ListSortDirection.Ascending Then
                Return x.ToString.CompareTo(y.ToString)
            Else
                Return -x.ToString.CompareTo(y.ToString)
            End If
        End Function
    End Class
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        RichTextBox2.SortLines( _
        System.ComponentModel.ListSortDirection.Ascending, True)
    End Sub