I know you didn't need it but in that first example it would be easier to do this...
Public Sub DrawingArea1_MouseDown()
Dim da As DrawingArea = Last
End
In any Event the Last keyword points to the calling object.
so in a drawingarea mousedown event Last is the drawingarea