MouseEnter MouseLeave events on Shapes in RadDiagram

 Sub New()
        ' This call is required by the designer.
        InitializeComponent()

        Dim shape As LayoutShape = New LayoutShape()
        RadDiagram1.AddShape(shape)
        AddHandler shape.DiagramShapeElement.MouseEnter, AddressOf shape_MouseEnter
        AddHandler shape.DiagramShapeElement.MouseLeave, AddressOf shape_MouseLeave
        AddHandler Me.RadDiagram1.ShapeClicked, AddressOf RadDiagram1_ShapeClicked
    End Sub

    Private Sub shape_MouseLeave(sender As Object, e As EventArgs)
        Dim shape As LightVisualElement = TryCast(sender, LightVisualElement)
        shape.BackColor = System.Drawing.Color.Blue
    End Sub

    Private Sub shape_MouseEnter(sender As Object, e As EventArgs)
        Dim shape As LightVisualElement = TryCast(sender, LightVisualElement)
        shape.BackColor = System.Drawing.Color.Yellow
    End Sub

    Private Sub RadDiagram1_ShapeClicked(sender As Object, e As ShapeRoutedEventArgs)
        Dim shape As LayoutShape = TryCast(e.Shape, LayoutShape)
        If (shape IsNot Nothing) Then
            shape.BackColor = System.Drawing.Color.Green
        End If
    End Sub
End Class