Visual Basic

<br />
Imports System<br />
Imports System.ComponentModel<br />
Imports System.Drawing<br />
Imports System.Drawing.Design<br />
Imports System.ComponentModel.TypeConverter<br />
<br />
'My properties class<br />
Public Class ToolBoxItem<br />
<br />
#Region "Properies"<br />
<br />
    Private m_IName As String<br />
<br />
    Private m_Value As Integer<br />
<br />
    Public Property IName() As String<br />
        Get<br />
<br />
            Return m_IName<br />
<br />
        End Get<br />
        Set(ByVal Value As String)<br />
<br />
            m_IName = Value<br />
<br />
        End Set<br />
    End Property<br />
<br />
    Public Property Value() As Integer<br />
        Get<br />
<br />
            Return m_Value<br />
<br />
        End Get<br />
        Set(ByVal Value As Integer)<br />
<br />
            m_Value = Value<br />
<br />
        End Set<br />
    End Property<br />
<br />
#End Region<br />
<br />
End Class<br />
<br />
<br />
'My collection class<br />
Public Class ToolBoxItemCollection<br />
<br />
    Inherits CollectionBase<br />
<br />
    Public Sub Add(ByVal MyItem As ToolBoxItem)<br />
<br />
        list.Add(MyItem)<br />
<br />
    End Sub<br />
<br />
    Public Sub Remove(ByVal index As Integer)<br />
<br />
        If index > Count - 1 Or index < 0 Then<br />
<br />
            System.Windows.Forms.MessageBox.Show("Index not valid!")<br />
<br />
        Else<br />
<br />
            List.RemoveAt(index)<br />
<br />
        End If<br />
<br />
    End Sub<br />
<br />
<br />
    Public ReadOnly Property Item(ByVal index As Integer) As ToolBoxItem<br />
        Get<br />
<br />
            Return CType(List.Item(index), ToolBoxItem)<br />
<br />
        End Get<br />
<br />
    End Property<br />
<br />
End Class<br />
<br />
'My control class<br />
Public Class ToolBox<br />
<br />
    Inherits GroupBox<br />
<br />
    Private m_Items As ToolBoxItemCollection<br />
<br />
    Private m_Count, m_ItemWidth, m_ItemHeight As Integer<br />
<br />
<br />
    Public Property Items() As ToolBoxItemCollection<br />
        Get<br />
<br />
            Return m_Items<br />
<br />
        End Get<br />
        Set(ByVal Value As ToolBoxItemCollection)<br />
<br />
            m_Items = Value<br />
<br />
        End Set<br />
    End Property<br />
<br />
<br />
    Public Property Items(ByVal Index As Integer) As ToolBoxItem<br />
        Get<br />
            Return m_Items.Item(Index)<br />
<br />
        End Get<br />
        Set(ByVal Value As ToolBoxItem)<br />
<br />
            m_Items.Add(Value)<br />
<br />
        End Set<br />
    End Property<br />
<br />
    Public Sub New()<br />
<br />
        MyBase.New()<br />
<br />
        Me.Dock = DockStyle.Right<br />
<br />
        Me.BackColor = SystemColors.ControlDarkDark<br />
<br />
        Me.Text = ""<br />
<br />
        Me.Width = 100<br />
<br />
        If m_Items Is Nothing Then<br />
<br />
            m_Items = New ToolBoxItemCollection<br />
<br />
        End If<br />
<br />
    End Sub<br />
<br />
<br />
End Class<br />
<br />

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint
    Dim g As Graphics = e.Graphics
    ' do your painting for the control
End Sub