TROUVER UN CONTROLE "ACTIF" DANS UN FORM

 Dim SelecBox As System.Windows.Forms.Label
       
        Dim cherchGRP As System.Windows.Forms.GroupBox
        For Each Ctl In Me.Controls 'all control in form1
            If TypeOf Ctl Is GroupBox Then' à supprimer si pas de Groupbox
                cherchGRP = Ctl
                For Each elements In cherchGRP.Controls 'just elements in each groupbox or Form
                    If TypeOf elements Is Label Then
                        SelecBox = elements
                        'tag label1=1 tag label2 = 2 IMPORTANT pas de TAG pas de fonction !!
                        If SelecBox.Tag >= 1 And SelecBox.Tag <= 2 Then
                            'juste pour exemple change le texte par defaut en "nouveau nom"
                            If SelecBox.Text.Contains("Label") = True Then
                                'juste pour démo, on peut aussi changer la couleur par exemple.
                                SelecBox.Text = "nouveau label"
                                TextBox1.Text = "label "
                            End If
                        End If
                    End If
                    If TypeOf elements Is CheckBox Then
                        'tag checkbox1=1 tag checkbox2 = 2 IMPORTANT pas de TAG pas de fonction !!
                        If elements.Tag >= 1 And elements.Tag <= 2 Then
                            'trouve la ou les checkbox à TRUE, checked
                            If elements.Checked = True Then
                                'ici la detection et événements à lancer
                                'dans mon cas ou un WOL en UDP ou un Shutdown en SSH
                                'avec codage MD5
                                '**********************************************

                                'change statut du controle
                                elements.Text = "ON"
                                TextBox1.Text = "checkbox"
                            Else
                                elements.Text = "OFF"
                                TextBox1.Text = "checkbox"
                            End If
                        End If
                    End If

                Next
            End If
        Next