Grazie per avermi risposto.
La tua soluzione l'ho già provata, senza esito positivo.
Nel frattempo ho scritto questo codice che pare funzionare, anche se mi sembra un pò macchinoso. Perchè non gli dai uno sguardo?
codice:
Dim FormAttivo
FormAttivo = Screen.ActiveForm.MDIChild
Select Case FormAttivo
        
 Case Screen.ActiveForm Is FrmAA
     Call FrmAA.mnuApriPI_Click          'Apre la Prima pagina
...
...
End select
Rimango in attesa, grazie.