Text over object?

[seaweed]

I don't think the click event takes X and Y coordinates. If you are using the MouseUp event, then call it from the similar event of the label, i.e.

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call Picture1_MouseUp(Button, Shift, X, Y)
End Sub