Friend Sub ADD(ByVal Button As NavigatorButton)
 
        Me.Controls.Add(Button)
        Me.Buttons.Add(Button)
 
        If Button.Selected = True Then Me.SelectedButton = Button
 
        ' Nachdem nun ein Button in die Auflistung hinzu gekommen ist,
        ' wird nun die Anzahl der Buttons ermittelt.
        ' Anschliessend wird die breite der buttons berechnet
        ' und die Button werden neu positioniert
 
        ButtonPositionieren()
    End Sub
 
    Private Sub ButtonPositionieren()
 
        Dim Anzahl As Integer = Buttons.Count
 
        Dim Breite As Integer
        Breite = Me.ClientRectangle.Width
 
        Dim ButtonBreite As Integer
        ButtonBreite = Breite / Anzahl
 
        Dim x As Integer = 0
 
 
        For Each _b As NavigatorButton In Buttons
 
            _b.Location = New Drawing.Point(x, 0)
            _b.Size = New Drawing.Size(ButtonBreite, Me.ClientRectangle.Height)
 
            AddHandler _b.MouseDown, AddressOf selektieren
 
            x += ButtonBreite
        Next
 
    End Sub

  Private Sub selektieren(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.MouseEventArgs)
 
        ' Nun den Selektierten Button abwählen
        Me.SelectedButton.Selected = False
 
        ' Den aktuellen button auswählen
        CType(sender, NavigatorButton).Selected = True
        Me.SelectedButton = CType(sender, NavigatorButton)
 
    End Sub

Friend WithEvent Route as NavigatorButton
 
        Me.Route = New NavigatorButton
        Me.Route.ButtonText = "Route"
        Me.Route.LineColor = Drawing.Color.Red
        Me.RamonNavigation1.ADD(Me.Route)