Comparer Control.Tag avec un String

Bonjour,

J'essaye de comparer le contenu d'un Tag (Objet) avec un String (String).
Bien sur, cela ne marche pas. Comment peut-on faire?

Le Tag property est rempli directement dans les proprietes du controle: PictureBox.Tag rempli avec "R00".
Et je voudrais faire la comparaison:

Code:

---

1 2 3 4

For Each ctrl As Control In Me.Controls If TypeOf ctrl Is PictureBox Then If CType(ctrl, PictureBox).Tag Is "R00" Then

---

J'ai essaye:

Code:

---

If CType(ctrl, PictureBox).Tag.ToString = "R00" Then

---

mais, sans resultats.

Bref, avez-vous une idee ?
Merci,

A+
JLuc01

Je crois avoir trouve la solution.
Du moins, cela a l'air de marcher.

Code:

---

1 2 3 4

Dim x As String x = CStr(CType(ctrl, PictureBox).Tag) If x = "R00" Then

---

ou

Code:

---

If CStr(CType(ctrl, PictureBox).Tag)= "R00" Then

---

au lieu de

Code:

---

1 2	If CType(ctrl, PictureBox).Tag.ToString = "R00" Then

---

Bizarre qu'on ait besoin de CStr() au lieu de .ToString !
Dans les 2 cas, pas d'erreurs observees avec Option Explicit On.

A+
JLuc01