Bouton radio par défaut

Bonjour à tous,

Quand je réinitialise une fenêtre, j'aimerais que le bouton radio par défaut soit coché.
L'affichage de la fenêtre appelle une fonction : Init()
Cette fonction remet tous les champs à vide.

Le programmeur choisit un bouton radio par défaut. J'aimerais que, même s'il choisit un autre bouton radio par défaut, au moment de la réinitialisation (Init()) le programme coche le bon bouton radio.

Voici la méthode utilisée actuellement :

Code:

---

1 2 3 4 5 6 7 8

Private Sub FrmIdent_Load( ... ) For Each x In GrCiv.Controls x.Text = tciv(i) i += 1 If x.Checked Then Click_Civ(x, e) x.Tag = x.Checked Next End Sub

---

' les boutons radio se trouvent dans un GroupBox : GrCiv

Code:

---

1 2 3 4 5 6

Sub Init() Dim x As RadioButton For Each x In GrCiv.Controls x.Checked = x.Tag Next End Sub

---

J'ai pensé à faire comme ça mais ça ne fonctionne pas :

Code:

---

1 2 3 4 5

Sub Init() Dim i As Integer i = GrCiv.Tag GrCiv.Controls(i).checked = true End Sub

---

En clair, j'aimerais me passer de la boucle et utiliser directement le Tag de GrCiv.

Merci d'avance.

GrCiv.Tag contient-il la bonne valeur, au démarrage du formulaire ?