Как "достать" второй элемент дерева

Public Class Printer
    Public left As Printer
    Public ring As Printer
    Public model As Integer
 
    Public Shared Operator <(ByVal p1 As Printer, ByVal p2 As Printer) As Boolean
        Return p1.model < p2.model
    End Operator
    Public Shared Operator >(ByVal p1 As Printer, ByVal p2 As Printer) As Boolean
        Return p1.model > p2.model
    End Operator
 
    Public Sub New()
        Me.model = 100
    End Sub
    Public Sub Add(ByVal p As Printer)
        If p > Me Then
            If Me.left Is Nothing Then
                Me.left = p
            Else
                Me.left.Add(p)
            End If
        End If
        If p < Me Then
            If Me.ring Is Nothing Then
                Me.ring = p
            Else
                Me.ring.Add(p)
            End If
        End If
    End Sub
    Public Function naibolshiy() As Printer
        Dim res As Printer
        res = Me
        If left IsNot Nothing Then
            If res < Me.left Then
                res = Me.left.naimenshy
            End If
        End If
        Return res
    End Function
 
    Public Function naimenshy() As Printer
        Dim res1 As Printer
        res1 = Me
        If ring IsNot Nothing Then
            If res1 > Me.ring Then
                res1 = Me.ring.naibolshiy
            End If
        End If
        Return res1
    End Function
    
End Class

Public Class Form1
    Public p1 As Printer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        p1 = New Printer
        Dim b As Printer
        Dim n As Integer
        For i As Integer = 0 To n
            b = New Printer()
            b.model = 200 * Microsoft.VisualBasic.Rnd()
            p1.Add(b)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim b As Printer
        b = p1.vtoroy
    End Sub
End Class