Public Class LineManager
    Private _max As Integer
 
    Private lines As New Queue(Of String)
 
    Public Sub New()
        _max = 7
        InitQueue()
    End Sub
 
    Public Sub New(ByVal maximum As Integer)
        _max = maximum
        InitQueue()
    End Sub
 
    Private Sub InitQueue()
        For i As Integer = 1 To _max
            lines.Enqueue(" ")
        Next
    End Sub
 
    Public Sub AddLine(ByVal line As String)
        lines.Dequeue()
        lines.Enqueue(line)
    End Sub
 
    Public ReadOnly Property LinesAsArray() As String()
        Get
            Return lines.ToArray()
        End Get
    End Property
End Class

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008