hs.RegisterEventCB 3, Me $cb = $obj->RegisterEventCB(3,$self);