Auto_Detect Controle And Fill Form Controls

    ''' <summary>
    ''' ' Permet de remplire les controles d'un formulaire cloturer par un GroupeBox, lorsque on sélectione un item sur le liste view
    ''' </summary>
    ''' <param name="grp"> GroupeBox Principal </param>
    ''' <param name="lv"> Le liste view qui contient les donnés qui pour remplir le Formulaire lors de la selection du ligne</param>
    ''' <param name="i"> Prend la valeur numérique du text du tag et est donnée au SubItems(i) pour indiquer sur quel colonne on doit pointer pour associer des valeur au controle du form </param>
    ''' <param name="grpS"> Groupe box a l'intérieur du groupe box principale qui contient des Radio boutons </param>
    Public Sub Remplir_Test(grp As GroupBox, lv As ListView, i As Integer, grpS As GroupBox)
        Dim ctrl As Control
        Dim ctrl2 As Control
        Dim radio As New RadioButton
        Dim cbo As New ComboBox

        'Le tag dans mon programme de chaque controle correspond au a l'index du SubItem du ListeView

        For Each ctrl In grp.Controls
            If ctrl.Tag = Nothing Then
                Return
            Else
                i = ctrl.Tag
                If TypeOf (ctrl) Is TextBox Or TypeOf (ctrl) Is MaskedTextBox Then
                    ctrl.Text = lv.SelectedItems.Item(0).SubItems(i).Text
                ElseIf TypeOf (ctrl) Is ComboBox Then
                    cbo = ctrl
                    cbo.SelectedItem = lv.SelectedItems.Item(0).SubItems(i).Text

                    ' Pour le Sexe avec ces radio bouton
                ElseIf lv.SelectedItems.Item(0).SubItems(i).Text = "M" Or lv.SelectedItems.Item(0).SubItems(i).Text = "F" Then
                    For Each ctrl2 In grpS.Controls
                        If ctrl2.Tag = lv.SelectedItems.Item(0).SubItems(i).Text Then
                            If CheckState.Unchecked = 0 Then
                                radio = ctrl2
                                radio.Checked = True
                            End If
                        End If
                    Next
                End If
            End If
        Next

    End Sub