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.