Private Sub ControlChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        If Initializing Then Return
 
        Dim eSender As PicCheckBox = DirectCast(sender, PicCheckBox)
        'MsgBox(eSender.Name)
        For Each ctrl In panValuation.Controls.OfType(Of PicCheckBox)()
            ctrl.Checked = False
        Next
 
        eSender.Checked = True
    End Sub