_Screen.AddObject("oScrEvents", "ScrEvents") >> >>DEFINE CLASS ScrEvents AS Custom >> oScreen = _Screen >> PROCEDURE oScreen.RightClick >> WAIT WINDOW NOWAIT PROGRAM() >> * Whatever you wnat to call >> ENDPROC >>ENDDEFINE >>