Advice on coding my classes

[Willie Neal]

I'm new to vb.net and would like the advice of my peers. Here is my
scenario: I have a user control which consists of three buttons, three
listboxes and three labels. When the user selects a button an associated
listbox is made visible. The user can then select her choices which will be
used for a reporting filter down the line. I've created a user control to
house these controls and put the user control on a form, I will have perhaps
4 different user controls later. I've create a class called clsCustomCtl
which has two classes in it, one for button which inherits button and one
for listbox which inherits listbox. I then instantiate these classes in my
user control making my controls of the class type, clsButton or clsList.
Here is my code below, am I coding this in a correct manner? I'm a stickler
for coding style, but being new to .net I would love some advice. Through a
property assignment I'm assigning each button a list box and each list box
I'm assigning a label control showing whether the listbox items were
selected are not. I assume since the button has control over the listbox,
doing it in this manner allows the same functionality for all buttons
derived from clsButton. All the button does is toggles the visible property
showing it's assigned list box control and as Items are selected in the
listbox the label displays text of some kind. Thanks you for taking the
time, sorry so verbose.

Code from User Control:
Private Sub IntitializeCtls ()

Me.ListBox1.uLa bel = Me.Label1

Me.ListBox2.uLa bel = Me.Label2

Me.ListBox3.uLa bel = Me.Label3

Me.Button1.uLis tBox = Me.ListBox1

Me.Button3.uLis tBox = Me.ListBox3

Me.Button2.uLis tBox = Me.ListBox2

End Sub
CLASS CODE:

Imports System.Windows. Forms
Public Class clsButton

Inherits Windows.Forms.B utton

Private _lst As ListBox

Public Property uListBox() As ListBox

Get

Return _lst

End Get

Set(ByVal Value As ListBox)

_lst = Value

End Set

End Property

Public Sub New()

MyBase.New()

RemoveHandler Me.Click, AddressOf Button_click

AddHandler Me.Click, AddressOf Button_click

End Sub

Private Sub Button_click(By Val sender As System.Object, ByVal e As
System.EventArg s)

Me.uListBox.Vis ible = True

Me.uListBox.Bri ngToFront()

If Me.uListBox.Vis ible Then

Me.uLabel.Visib le = True

Else

Me.uLabel.Visib le = False

End If

End Sub

End Class

Public Class clsList

Inherits Windows.Forms.L istBox

Private _lbl As Label

Public Property uLabel() As Label

Get

Return _lbl

End Get

Set(ByVal Value As Label)

_lbl = Value

End Set

End Property

Public Sub New()

MyBase.New()

MyBase.Selectio nMode = SelectionMode.M ultiSimple

RemoveHandler Me.Click, AddressOf clsList_Click

AddHandler Me.Click, AddressOf clsList_Click

End Sub

Private Sub clsList_Click(B yVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Click

Me.uLabel.Text = "Filtered"

End Sub

End Class