All'avvio, nel progetto principale (per fare login):

codice:
  
...
   Set oOperatore = CreateObject("pOperatore.Operatore")     
   Set oOperatore.WindowsManager = WindowsManager     
...
Poi nel modulo di classe Operatore nel sottoprogetto pOperatore:
codice:
 
Option Explicit
Private mvarWindowsManager   As Object


Public Property Set WindowsManager(ByRef vData As Object) 
    Set mvarWindowsManager = vData
End Property

Friend Property Get WindowsManager() As Object 
    Set WindowsManager = mvarWindowsManager
End Property