CHANGER LES PROPRIÉTÉS DE TOUS LES CONTRÔLES D'UNE FENÊTRE

' Dans la première boucle vous pouvez ajouter 
' le code suivant, il permet de voir le 
' contenu
' de la variable j (Ajouter une listBox 
' dans la fenêtre) : listBox1.Items.Add
' (j.current)
Dim j As System.Collections.IEnumerator
j = Controls.GetEnumerator
While j.MoveNext
     If TypeOf j.Current Is GroupBox Then
          ' Pour accéder aux objets contenus 
          ' dans un groupBox, il faut
          ' passer par sa propre collection 
          ' de contrôle 
          ' cf *
          CType(j.Current, GroupBox).FlatStyle _
          = FlatStyle.Standard
          CType(j.Current, GroupBox).Refresh()
          Dim i As System.Collections.IEnumerator
          i = j.Current.Controls.GetEnumerator
          While i.MoveNext
              If TypeOf i.Current Is Button Then
                 ' cf *
                  CType(i.Current, Button).FlatStyle _ 
                  = FlatStyle.Standard
                  CType(i.Current, Button).Refresh()
              End If
          End While
     End If
     If TypeOf j.Current Is Button Then
         ' *
         ' C'est à ce niveau que l'on accède aux propriétés 
         ' de l'objet que l'on veut modifier.
         ' Exemple supplémentaire : 
         ' CType(i.Current, Button).BackColor  = color.Blue
         ' Vous l'aurez évidemment remarqué 
         ' que ce code permet, 
         ' en quelque ligne, de modifier la couleur 
         ' de tous les boutons
         ' de la fenêtre.
         CType(j.Current, Button).FlatStyle _
         = FlatStyle.Standard
     End If
     If TypeOf j.Current Is RadioButton Then
          ' cf *
          CType(j.Current, RadioButton).FlatStyle _ 
          = FlatStyle.Standard
     End If
     If TypeOf j.Current Is CheckBox Then
          ' cf *
          CType(j.Current, CheckBox).FlatStyle _ 
          = FlatStyle.Standard
     End If
End While