After about an hour of playing with the class I have to admit defeat - at least for the time being. While the class seems to react to the click event
Code:
Private Sub mTarget_Click()
'You may code this proc as you need.
MsgBox Me.Target.Caption, , Me.Target.Name
End Sub
it does not seem to react to MouseDown, even with no breakpoints on it
Code:
Private Sub mTarget_OnMouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox Me.Target.Name
End Sub
EDIT -good grief, between this and another thread I've been looking at code for hours. I'm at the point where I'm not concentrating, rather, details are crossing over to where they should not. This works
Code:
Private Sub mTarget_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox Me.Target.Name & " Shift: " & Shift
End Sub
I had OnMouseDown in 2 places, one which was wrong. So it seems I've figured it out. As indicated (?) add
.OnMouseDown = "[Event Procedure]"
to the class event(s) list and the above procedure to the class where you have/had the click event already.