thanks to boblarson;
some modification on boblarson's code
Caution:
Syntax: AddressOf procedurename
The required procedurename specifies the procedure whose address is to be passed. It must represent a procedure in a standard module module in the project in which the call is made.
Option...