[VB6] la collection controls

voila le code qui ne marche pas :

Code:

---

1 2 3 4

For Each obj In MaForm.Controls obj.Enabled = False Next

---

mon but est de bloquer l'utilisation de la fenetre sans bloquer sa fermeture ce que l'on a si on utillise maform.enabled=fasle

Code:

---

1 2 3 4 5

Dim Obj As Control For Each Obj In Me.Controls Obj.Enabled = False Next

---

et pour ne bloquer que certains controles si nécessaire :

mets le tag des objets en question à 1

Code:

---

1 2 3

For Each obj In MaForm.Controls if obj.tag = 1 then obj.Enabled = False Next

---

ok merci beaucoup les gars !! :D