creer un evenement (vb.net)

Public Class MaLabel
    Inherits System.Windows.Forms.Label
    Private _valeur As String
    Public Event ValeurChanged()
    Public Property Valeur() As String
        Get
            Return _valeur
        End Get
        Set(ByVal value As String)
            'Avant d'affecter une nouvelle valeur à la propriété _value 
            'on teste s'il y a une changement de cette valeur ou pas, 
            'si oui on déclenhe l'évènement pour éxecuter la procédure MaLabel_ValeurChanged
            If String.Compare(_valeur, value) <> 0 Then
                RaiseEvent ValeurChanged()
            End If
            _valeur = value
        End Set
    End Property
    ''' <summary>
    ''' Permet de faire le traitement lorsque un l'évènement ValeurChanged 
    ''' se déclenche, càd lorsque la valeur de la variable Valeur  est changé.
    ''' </summary>
    ''' <remarks></remarks>
    Sub MaLabel_ValeurChanged() Handles Me.ValeurChanged
        'Ici le traitement lorsque la valeur de votre label est changé.
    End Sub
End Class