[VB] Boucle sur boutons d'un Form (V. Studio 2017)

Bonjour à tous,

J'ai un petit soucis en VB, je veux boucler sur tous les boutons contenus dans un form en faisant un for each mais ça me pointe une erreur sur l'occurence "bouton" en me mettant "Flat apparence n'est pas un membre de "control". (Cf. code ci dessous)

Je débute en VB et je pense que je n'utilise pas la bonne syntaxe pour agir sur les paramètres de mes boutons contenu dans un form.... Sauriez vous quelle est la bonne syntaxe pour que je puisse modifier mes paramètres flatappearence ?

Merci beaucoup pour votre aide.

Ced

Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated

        boucle_survolage_des_boutons()

End Sub

Sub boucle_survolage_des_boutons()

        For Each bouton As Control In Form1.Controls

            If TypeOf bouton Is Windows.Forms.Button Then

                bouton.FlatAppearance.MouseDownBackColor = Color.FromArgb(175, 17, 23)
                bouton.FlatAppearance.MouseOverBackColor = Color.FromArgb(241, 105, 111)
            End If
        Next

End Sub