Пользовательский элемент управления

Imports System.ComponentModel
 
Public Class MyUserControl
    <Category("Мои свойства")>
    Public Property NewProperty1() As String
    <Category("Мои свойства")>
    Public Property NewProperty2() As String
    <Category("Мои свойства")>
    Public Property NewProperty3() As String
    <Category("Мои свойства")>
    Public Property NewProperty4() As String
End Class

Imports System.ComponentModel
 
Public Class MyUserControl
    Public Property ComplexProperty() As Class1
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        ComplexProperty = New Class1()
    End Sub
End Class
 
<TypeConverter(GetType(ExpandableObjectConverter))>
Public Class Class1
    Public Property NewProperty1() As String
    Public Property NewProperty2() As String
    Public Property NewProperty3() As String
    Public Property NewProperty4() As String
End Class

Public Sub MyMethod()
End Sub

Public Event MyEvent As EventHandler

Protected Overridable Sub OnMyEvent()
    RaiseEvent MyEvent
End Sub

Public Class MyUserControl
    Public Event MyEvent As EventHandler
 
    Protected Overridable Sub OnMyEvent()
        RaiseEvent MyEvent(Me, EventArgs.Empty)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OnMyEvent()
    End Sub
End Class

Public Class MyUserControl2
    Public Event MyEvent2 As EventHandler
 
    Protected Overrides Sub OnMyEvent()
        RaiseEvent MyEvent2(Me, EventArgs.Empty)
    End Sub
End Class