Windows Forms

   public partial class BorderLabel: Label
    {
        public BorderLabel()
        {
            InitializeComponent();
            this.SetStyle(ControlStyles.AllPaintingInWmPaint | ControlStyles.UserPaint | ControlStyles.OptimizedDoubleBuffer, true); // this doesn't help        
        }
                  
        private Color _borderColor = Color.Black;
        public Color BorderColor
        {
            get { return _borderColor; }
            set
            {
                _borderColor = value;
                Invalidate();
            }
        }
        protected override void OnPaint(PaintEventArgs e)
        {
            base.OnPaint(e);
            int borderWidth = 1;
            ControlPaint.DrawBorder(e.Graphics, e.ClipRectangle, _borderColor,
                      borderWidth, ButtonBorderStyle.Solid, _borderColor, borderWidth,
                      ButtonBorderStyle.Solid, _borderColor, borderWidth, ButtonBorderStyle.Solid,
                      _borderColor, borderWidth, ButtonBorderStyle.Solid);
        }
}

Imports System.Collections.Generic
Imports System.Text
Imports System.Collections

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        Dim colBoxesOfWidgets As New ArrayList()
        colBoxesOfWidgets.Add(New BoxOfWidgets("Cardboard"))
        DirectCast(colBoxesOfWidgets(0), BoxOfWidgets).colWidgets.Add(New Widget("The Blue Widget", 12))
        DirectCast(colBoxesOfWidgets(0), BoxOfWidgets).colWidgets.Add(New Widget("The Red Widget", 15))
        DirectCast(colBoxesOfWidgets(0), BoxOfWidgets).colWidgets.Add(New Widget("The Silver Widget", 6))
        DirectCast(colBoxesOfWidgets(0), BoxOfWidgets).colWidgets.Add(New Widget("The Green Widget", 52))

        colBoxesOfWidgets.Add(New BoxOfWidgets("Metal"))
        DirectCast(colBoxesOfWidgets(1), BoxOfWidgets).colWidgets.Add(New Widget("The Gold Widget", 9))
        DirectCast(colBoxesOfWidgets(1), BoxOfWidgets).colWidgets.Add(New Widget("The Orange Widget", 115))
        DirectCast(colBoxesOfWidgets(1), BoxOfWidgets).colWidgets.Add(New Widget("The Pink Widget", 1))

        colBoxesOfWidgets.Add(New BoxOfWidgets("Metel"))
        DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The Grey Widget", 12))
        DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The Black Widget", 15))
        DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The White Widget", 19))
        DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The Brown Widget", 60))
        DirectCast(colBoxesOfWidgets(2), BoxOfWidgets).colWidgets.Add(New Widget("The Peach Widget", 16))

        Call GetRidOfTheSmallWidgets(colBoxesOfWidgets)



    End Sub

    Public Function GetRidOfTheSmallWidgets(ByVal colBoxesOfWidgets As ArrayList) As ArrayList

       For I As Integer = 0 To colBoxesOfWidgets.Count - 1

            lstWidgets.Items.Add(I).ToString()

        Next
        Return (colBoxesOfWidgets)

    End Function

End Class

Class BoxOfWidgets
    Public boxType As String
    Public colWidgets As ArrayList

    Public Sub New(ByVal newBoxType As String)
        boxType = newBoxType
        colWidgets = New ArrayList()
    End Sub
End Class

Class Widget
    Public name As String
    Public length As Single

    Public Sub New(ByVal newName As String, ByVal newLength As Single)
        Me.name = newName
        Me.length = newLength
    End Sub
End Class