The way it's setup to work is that a long running process will run when loFoxServer.DoSomeAsynWork() is called. That process runs in the background and returns immediately to the calling program to allow something else to be done. So, 2 processes are running simultaneously without any blocking. this works for me. Do you want this to work differently?

>Just tested that but unfortunately, I think, it seems to still suffer from the blocking problem.
>
>To see what I mean try changing StartProcess.prg to the following:
>
>*startprocess.prg:
>PUBLIC loFoxServer, loEventhandler
>
>loFoxServer = CREATEOBJECT('testserver.oTestServer')
>loEventHandler = CREATEOBJECT('oTestCallback')
>
>loFoxServer.Advise(loEventHandler)
>
>DO StartAsyn.prg
>
>FOR F = 1 TO 20
> ? F
> doevents
> sleep(1000)
>ENDFOR