Ho risolto:

codice:
 Dim activeChild As Form = Me.ActiveMdiChild
Grazie lo stesso