Application avec focus

Bonjour,

Mon application utilise un code qui dis:

Code:

---

Appmanager.Mainform = Form1

---

a toutes les formes ouvertes.

Le problème, c'est qu'il y a plusieurs Form1 d'ouvert en même temps

Code:

---

Dim frm as New Form1

---

Je voudrais que quand on focus sur une des Form1, celle ci déclare

Code:

---

Appmanager.Mainform = Me

---

Code:

---

Private Sub Form1_GotFocus

---

ne marche pas comme il le faut.

Si vous avec une idée,
Merci de me répondre