Public Class UserControl1

'Notice I'm Inherting the Button....

Inherits System.Windows.Forms.Button

Private Sub UserControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

'Call the exposed Event of the Control...

RaiseEvent YouClickedTheButton()

End Sub

'*********************************************************************************************

'This Event will appear as one of the control's properties on the Designer Form. *

'For example: *

' *

' Private Sub UserControl11_YouClickedTheButton() Handles UserControl11.YouClickedTheButton *

' MessageBox.Show("Howdy!") *

' End Sub *

' *

Public Event YouClickedTheButton() 'Create an exposed Event for the control. *

' *

'*********************************************************************************************

'Here is a sample Property....

Dim BColor As Color

Public Property ButtonColor() As Color

Get

Return BColor

End Get

Set(ByVal Value As Color)

BColor = Value

Me.BackColor = BColor

End Set

End Property

End Class