Public Class rausrutchwennzugross
        Inherits ArrayList
        Private _max As Integer
        Public Sub New(ByVal Max As Integer)
            _max = Max
        End Sub
        Public Overrides Function Add(ByVal value As Object) As Integer
            If MyBase.Count = _max Then
                MyBase.RemoveAt(Me.Count - 1)
            End If
            MyBase.Insert(0, value)
        End Function
    End Class

    Private Sub Test()
 
        Dim rr As New rausrutchwennzugross(3)
        rr.Add(1)
        rr.Add(2)
        rr.Add(3)
        rr.Add(4)
        rr.Add(5)
 
        For Each x As Integer In rr
            Debug.WriteLine(x.ToString())
        Next
 
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov