Permission denied using WithEvents and MTS

I am creating a client-server application in VB6.  The client is a standard EXE and the server-side component is an ActiveX DLL running under MTS.  The DLL is comprised of several business objects one of which contains a procedure that raises an event which is used to communicate back to the client the procedure's progress in processing a group of records.

A form on the client side creates a reference to an object in the DLL like this:
_______________________
Private WithEvents mobjProcessOrder As MyDLL.ProcessOrder

Sub Form_Load
       .
       .
        Set mobjProcessOrder = New MyDLL.ProcessOrder
       .
       .
End Sub
_______________________

When the code is executed in the development environment, everything runs fine.  When the DLL and EXE are compiled and run on the server and client machines, an error occurs on the "Set mobjProcessOrder = " line in the above Form_Load procedure: "Error #70 - Permission denied".  The development machine is Win2K, the server is Win NT and the client is Win NT 4.0 Workstation.

If the client declaration is rewritten without the WithEvents keyword the code will execute in the runtime environment just fine (obviously the event is not trapped by the client in this case).

Are there security settings in MTS or on the client or server machines that need to be modified to allow the server to raise events on the client machine?


Start Free Trial