Как получить ссылку на подпрограмму в модуле

Question

Мне нужно выяснить, как ссылаться на подпрограмму внутри другого модуля с помощью ссылки. Это то, что я пытаюсь сделать:

Module Mod1 

    sub_x(pass a reference to this module) 

    Private Sub close_me() 
     ' do something here 
    End Sub 

End Module 

Module Mod2 

    Public Sub sub_x(get the reference to the passed module) 
     reference to passed module.close_me() 
    End Sub 

End Module 

Sub_x будет получать вызовы от нескольких разных модулей. Все вызывающие модули будут иметь подпрограмму close_me(). Поэтому мне нужно знать, какой модуль вызывает sub_x, поэтому я знаю, какой из них закрыть.

Answer 1

В Mod2:

Public Sub sub_x(ByVal closeModule As Action) 
    closeModule() 
End Sub 

В Mod1:

Mod2.sub_x(AddressOf Mod1.close_me)