UserControl Event Not Firing

I am trying to create a small dot that the user can move around a map. I use a UserControl for the dot:

<UserControl
....

MouseDown="MeMouseDown"
MouseUp="MeMouseUp"
MouseMove="MeMouseMove"
<Ellipse
        Fill="{Binding Path=FillColor}"
        Height="{Binding Path=Diameter}"
        Width="{Binding Path=Diameter}" >
    </Ellipse>
</UserControl>

Considering just the MouseDown event, I have in code-behind:

Public Class Dot
    Inherits UserControl

    .....
    Public Event MyMouseDown As RoutedEventHandler
    .....
    Private Sub MeMouseDown(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
        RaiseEvent MyMouseDown(sender, e)
    End Sub

The code that creates the dot is:

Private Sub DrawPoint(Colr As SolidColorBrush, Radius As Double)
        Dim ADot As New Dot With {.FillColor = Colr, .Diameter = 2 * Radius}
        ....
    End Sub

and finally, responding to the MouseDown event:

Private Sub MyMouseDown(sender As Object, e As MouseButtonEventArgs)
        Debug.WriteLine("MyMouseDown")
    End Sub

That Debug statement does not fire when I click on the dot and I don't know why.