se stai parlando di VB6 è piuttosto semplice:

codice:
Dim frm As Form
Set frm = MDIForm1.ActiveForm
MsgBox frm.Name
frm è la variabile oggetto che si riferisce al form attivo, puoi usarla come se fosse il form vero e proprio.

Boolean