Sub xCallSub(Component as Object, procedurename as string) as Object
Dim O as Object
#if TRACING
log("START:"...) 'DateTiime, procedure name,...
#end if
O=CallSub(Component, procedurename)
#if TRACING
log("EXIT"&.....) 'Datetime, .....
#end if
return O
end sub