kalosjo, grazie al tuo suggerimento ho risolto (I Nomi dei Frm sono tutti diversi) in questo modo:

codice:
Dim FormAttivo
FormAttivo = Screen.ActiveForm.Name

Select Case FormAttivo
  Case "FrmAA"
     Call FrmAA.mnuApriPI_Click       'Apre la Prima pagina
... ...
End Select
Ciao.