RaiseEvent not working

[pdanes]

I have a class module in which I want to raise an event to signal to the outside world. The class is named clsNode, and all this code is in that class module.

The declaration section contains this:

Public Event cstmEvntDropPoint(cnode As clsNode) ' If transfer is activated, this will signal the drop point

and code in the class's MouseDown event routine contains this:

RaiseEvent cstmEvntDropPoint(Me)

However, the RaiseEvent command does nothing. It activates just fine with other parameters, but even when I define a variable named SelfRef and use Set SelfRef = Me in the class's Initialize routine, subsequently calling

RaiseEvent cstmEvntDropPoint(SelfRef)

also does nothing. Stepping through the line in the debugger treats that line like a NoOp, but with any other parameter, it works normally. Why does this command accept other things, but not a reference to the current instance of the class raising the event?

[accesstos]

and code in the class's MouseDown event routine contains this:

Has the clsNode an event named MouseDown?
If that event belongs to a member of clsNode, you have to set the member's OnMouseDown property to "[Event Procedure]" in member's Property Set procedure. For example:

Option Compare Database
Option Explicit

Public Event MouseDown(cNode As clsNode)

Private WithEvents cmdNode As CommandButton

Property Set Node(value As CommandButton)
    Set cmdNode = value
    cmdNode.OnMouseDown = "[Event procedure]"
End Property

Property Get Node() As CommandButton
    Set Node = cmdNode
End Property

Private Sub cmdNode_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseDown(Me)
End Sub

Maybe you have to provide more info (code) about your class and its usage.
How do you declare the instances of the clsNode and how do you listen the events of clsNode from the outside world?

[pdanes]

I started to write an explanation, but now realize I have some stuff in it that's not clear even to me. I will have to go through it a bit more carefully, and post back when I have it a bit clearer in my own head.

[pdanes]

My apologies - got it. I was being an idiot, as usual.

[apr pillai]

Check the following Link and some reference as well on the Article to get the idea as how to set up the WithEvents, RaiseEvent etc. and capture the Event when Raised:

https://www.msaccesstips.com/2019/04/withevents-and-defining-your-own-events.html

[pdanes]

Thank you, that looks very useful. I'm getting better at using custom events, but it's still a bit new to me. Every bit of information helps.