Как добавить новое событие к пользовательскому контролу? - Visual Basic .NET

Формулировка задачи:

Всем здравствуйте. На C# новое (своё) событие к пользовательскому контролу добавляется так:

                    Листинг программы
                
 
                        
                          
                    
        private event EventHandler onGradientChange;
        [Category("Gradient"), Description("Вызывается при изменении свойств заливки")]
        public event EventHandler OnGradientChange
        {
            add
            {
                onGradientChange += value;
            }
            remove
            {
                onGradientChange -= value;
            }
        }    
//// генерация события onGradientChange   
//onGradientChange(this, new EventArgs());

конвертер Telerik C#-VB выдаёт мне следующее:

                    Листинг программы
                
 
                        
                          
                    
Private Event onGradientChange As EventHandler
<Category("Gradient"), Description("Вызывается при изменении свойств заливки")> _
Public Custom Event OnGradientChange As EventHandler
    AddHandler(ByVal value As EventHandler)
        onGradientChange += value
    End AddHandler
    RemoveHandler(ByVal value As EventHandler)
        onGradientChange -= value
    End RemoveHandler
End Event

VS даёт ошибку предлагая использовать RaiseEvent. Пожалуйста помогите правильно конвертировать указанный кусок кода C# на VB.

Решение задачи: «Как добавить новое событие к пользовательскому контролу?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Event onGradientChange As EventHandler
    <Category("Gradient"), Description("Вызывается при изменении свойств заливки")>
    Public Custom Event OnGradientChange As EventHandler
        AddHandler(ByVal value As EventHandler)
            AddHandler onGradientChange, value
        End AddHandler
        RemoveHandler(ByVal value As EventHandler)
            RemoveHandler onGradientChange, value
        End RemoveHandler
        RaiseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
            RaiseEvent onGradientChange(sender, e)
        End RaiseEvent
    End Event