VB6 ActiveForm - Select Case

[LMondi]

In un programma in fase di scrittura ho 20 Frm figli.
Vorreri evitare di scrivere per 20 volte (per ciascun Frm che viene attivato):

If ActiveForm Is FrmControlloX Then
  Call FrmControlloX.CmdApriControllo_Click   'Apre / Carica il Frm ed esegue il codice del modulo del Frm. 
End If

In effetti il codice sarebbe più compatto con un Select Case, tipo:

 Select Case FormAttivo
            Case FrmControlloX
       Call FrmControlloX.CmdApriControllo_Click
....
....
 End Select

Potreste aiutarmi?
Saluti.

[kalosjo]

  select case activeform.name
    case "nome1"
    case "nome2"
  end select

[LMondi]

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?

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.

[kalosjo]

Cosa intendi "...senza esito positivo"?

Poi una domanda:

La funzione da chiamare ha lo stesso nome in tutti i forms?

Se si potresti fare

activeform.nomefunzione (che ovviamente deve essere public)

[LMondi]

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

Dim FormAttivo
FormAttivo = Screen.ActiveForm.Name

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

Ciao.