problem with delegates

[Boni]

Dear All,
I would like to pass delegate (i.e function pointer ) into class
--------------------------
delegat TAAADelegate()
class A
dim myhandler as TAAADelegate
sub initialize ( handler_ as TAAADelegate)
myhandler=handl er_
end sub

public shared sub Handler1()
end sub

end class

---------
dim oA as new A
A.initializeliz e(A.Handler1) 'Compiler complains
A.initializeliz e(addressof A.Handler1) 'Compiler complains