>>*-- Create the XFRX Listener >>This.oListener = XFRX('XFRX#LISTENER') >> >>*-- Create a listenter for the progress bar >>This.oListenerProgress = CREATEOBJECT('updatelistener') >> >>*-- Chain the progress bar to XFRX listener >>This.oListener.Successor = This.oListenerProgress >> >>*-- If other listeners have been instantiated, chain them to the progress bar >>IF VARTYPE(This.oListeners) = 'O' AND This.oListeners.Count > 0 >> This.oListenerProgress.Successor = This.oListeners.Item[1] >>ENDIF >>