frmIngresarEstadoDientes.vb

Public Class pnlfondo

    Private Sub frmIngresarEstadoDientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PnlDiente18c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente18c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente18c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente18c4.MakeTriangular(TriangleDirection.Right)


        PnlDiente17c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente17c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente17c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente17c2.MakeTriangular(TriangleDirection.Left)


        PnlDiente16c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente16c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente16c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente16c2.MakeTriangular(TriangleDirection.Left)


        PnlDiente15c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente15c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente15c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente15c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente14c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente14c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente14c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente14c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente13c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente13c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente13c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente13c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente12c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente12c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente12c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente12c1.MakeTriangular(TriangleDirection.Down)

        PnlDiente11c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente11c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente11c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente11c1.MakeTriangular(TriangleDirection.Down)

        '--------------------------------------------------------
        PnlDiente28c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente28c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente28c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente28c4.MakeTriangular(TriangleDirection.Right)


        PnlDiente27c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente27c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente27c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente27c2.MakeTriangular(TriangleDirection.Left)


        PnlDiente26c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente26c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente26c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente26c2.MakeTriangular(TriangleDirection.Left)


        PnlDiente25c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente25c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente25c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente25c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente24c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente24c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente24c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente24c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente23c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente23c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente23c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente23c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente22c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente22c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente22c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente22c1.MakeTriangular(TriangleDirection.Down)

        PnlDiente21c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente21c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente21c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente21c1.MakeTriangular(TriangleDirection.Down)

        '---------------------------------------------------------------------------
        pnlDiente38c1.MakeTriangular(TriangleDirection.Down)
        pnlDiente38c3.MakeTriangular(TriangleDirection.Up)
        pnlDiente38c2.MakeTriangular(TriangleDirection.Left)
        pnlDiente38c4.MakeTriangular(TriangleDirection.Right)


        pnlDiente37c1.MakeTriangular(TriangleDirection.Down)
        pnlDiente37c3.MakeTriangular(TriangleDirection.Up)
        pnlDiente37c4.MakeTriangular(TriangleDirection.Right)
        pnlDiente37c2.MakeTriangular(TriangleDirection.Left)


        pnlDiente36c1.MakeTriangular(TriangleDirection.Down)
        pnlDiente36c3.MakeTriangular(TriangleDirection.Up)
        pnlDiente36c4.MakeTriangular(TriangleDirection.Right)
        pnlDiente36c2.MakeTriangular(TriangleDirection.Left)


        pnlDiente35c1.MakeTriangular(TriangleDirection.Down)
        pnlDiente35c3.MakeTriangular(TriangleDirection.Up)
        pnlDiente35c4.MakeTriangular(TriangleDirection.Right)
        pnlDiente35c2.MakeTriangular(TriangleDirection.Left)

        pnlDiente34c1.MakeTriangular(TriangleDirection.Down)
        pnlDiente34c3.MakeTriangular(TriangleDirection.Up)
        pnlDiente34c4.MakeTriangular(TriangleDirection.Right)
        pnlDiente34c2.MakeTriangular(TriangleDirection.Left)

        pnlDiente33c1.MakeTriangular(TriangleDirection.Down)
        pnlDiente33c3.MakeTriangular(TriangleDirection.Up)
        pnlDiente33c4.MakeTriangular(TriangleDirection.Right)
        pnlDiente33c2.MakeTriangular(TriangleDirection.Left)

        pnlDiente32c2.MakeTriangular(TriangleDirection.Up)
        pnlDiente32c4.MakeTriangular(TriangleDirection.Right)
        pnlDiente32c2.MakeTriangular(TriangleDirection.Left)
        pnlDiente32c1.MakeTriangular(TriangleDirection.Down)

        pnlDiente31c4.MakeTriangular(TriangleDirection.Right)
        pnlDiente31c3.MakeTriangular(TriangleDirection.Up)
        pnlDiente31c2.MakeTriangular(TriangleDirection.Left)
        pnlDiente31c1.MakeTriangular(TriangleDirection.Down)
        '-----------------------------------------------------------------------
        PnlDiente48c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente48c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente48c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente48c4.MakeTriangular(TriangleDirection.Right)


        PnlDiente47c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente47c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente47c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente47c2.MakeTriangular(TriangleDirection.Left)


        PnlDiente46c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente46c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente46c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente46c2.MakeTriangular(TriangleDirection.Left)


        PnlDiente45c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente45c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente45c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente45c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente44c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente44c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente44c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente44c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente43c1.MakeTriangular(TriangleDirection.Down)
        PnlDiente43c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente43c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente43c2.MakeTriangular(TriangleDirection.Left)

        PnlDiente42c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente42c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente42c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente42c1.MakeTriangular(TriangleDirection.Down)

        PnlDiente41c4.MakeTriangular(TriangleDirection.Right)
        PnlDiente41c3.MakeTriangular(TriangleDirection.Up)
        PnlDiente41c2.MakeTriangular(TriangleDirection.Left)
        PnlDiente41c1.MakeTriangular(TriangleDirection.Down)



    End Sub



    Dim id_c As String
    Dim cambiador11c1 As Boolean = False
    Dim cambiador11c2 As Boolean = False
    Dim cambiador11c3 As Boolean = False
    Dim cambiador11c4 As Boolean = False

    Dim cambiador12c1 As Boolean = False
    Dim cambiador12c2 As Boolean = False
    Dim cambiador12c3 As Boolean = False
    Dim cambiador12c4 As Boolean = False

    Dim cambiador13c1 As Boolean = False
    Dim cambiador13c2 As Boolean = False
    Dim cambiador13c3 As Boolean = False
    Dim cambiador13c4 As Boolean = False

    Dim cambiador14c1 As Boolean = False
    Dim cambiador14c2 As Boolean = False
    Dim cambiador14c3 As Boolean = False
    Dim cambiador14c4 As Boolean = False

    Dim cambiador15c1 As Boolean = False
    Dim cambiador15c2 As Boolean = False
    Dim cambiador15c3 As Boolean = False
    Dim cambiador15c4 As Boolean = False

    Dim cambiador16c1 As Boolean = False
    Dim cambiador16c2 As Boolean = False
    Dim cambiador16c3 As Boolean = False
    Dim cambiador16c4 As Boolean = False

    Dim cambiador17c1 As Boolean = False
    Dim cambiador17c2 As Boolean = False
    Dim cambiador17c3 As Boolean = False
    Dim cambiador17c4 As Boolean = False

    Dim cambiador18c1 As Boolean = False
    Dim cambiador18c2 As Boolean = False
    Dim cambiador18c3 As Boolean = False
    Dim cambiador18c4 As Boolean = False

    Dim cambiador21c1 As Boolean = False
    Dim cambiador21c2 As Boolean = False
    Dim cambiador21c3 As Boolean = False
    Dim cambiador21c4 As Boolean = False

    Dim cambiador22c1 As Boolean = False
    Dim cambiador22c2 As Boolean = False
    Dim cambiador22c3 As Boolean = False
    Dim cambiador22c4 As Boolean = False

    Dim cambiador23c1 As Boolean = False
    Dim cambiador23c2 As Boolean = False
    Dim cambiador23c3 As Boolean = False
    Dim cambiador23c4 As Boolean = False

    Dim cambiador24c1 As Boolean = False
    Dim cambiador24c2 As Boolean = False
    Dim cambiador24c3 As Boolean = False
    Dim cambiador24c4 As Boolean = False

    Dim cambiador25c1 As Boolean = False
    Dim cambiador25c2 As Boolean = False
    Dim cambiador25c3 As Boolean = False
    Dim cambiador25c4 As Boolean = False

    Dim cambiador26c1 As Boolean = False
    Dim cambiador26c2 As Boolean = False
    Dim cambiador26c3 As Boolean = False
    Dim cambiador26c4 As Boolean = False


    Dim cambiador27c1 As Boolean = False
    Dim cambiador27c2 As Boolean = False
    Dim cambiador27c3 As Boolean = False
    Dim cambiador27c4 As Boolean = False


    Dim cambiador28c1 As Boolean = False
    Dim cambiador28c2 As Boolean = False
    Dim cambiador28c3 As Boolean = False
    Dim cambiador28c4 As Boolean = False


    Dim cambiador31c1 As Boolean = False
    Dim cambiador31c2 As Boolean = False
    Dim cambiador31c3 As Boolean = False
    Dim cambiador31c4 As Boolean = False

    Dim cambiador32c1 As Boolean = False
    Dim cambiador32c2 As Boolean = False
    Dim cambiador32c3 As Boolean = False
    Dim cambiador32c4 As Boolean = False


    Dim cambiador33c1 As Boolean = False
    Dim cambiador33c2 As Boolean = False
    Dim cambiador33c3 As Boolean = False
    Dim cambiador33c4 As Boolean = False


    Dim cambiador34c1 As Boolean = False
    Dim cambiador34c2 As Boolean = False
    Dim cambiador34c3 As Boolean = False
    Dim cambiador34c4 As Boolean = False

    Dim cambiador35c1 As Boolean = False
    Dim cambiador35c2 As Boolean = False
    Dim cambiador35c3 As Boolean = False
    Dim cambiador35c4 As Boolean = False

    Dim cambiador36c1 As Boolean = False
    Dim cambiador36c2 As Boolean = False
    Dim cambiador36c3 As Boolean = False
    Dim cambiador36c4 As Boolean = False


    Dim cambiador37c1 As Boolean = False
    Dim cambiador37c2 As Boolean = False
    Dim cambiador37c3 As Boolean = False
    Dim cambiador37c4 As Boolean = False

    Dim cambiador38c1 As Boolean = False
    Dim cambiador38c2 As Boolean = False
    Dim cambiador38c3 As Boolean = False
    Dim cambiador38c4 As Boolean = False

    Dim cambiador41c1 As Boolean = False
    Dim cambiador41c2 As Boolean = False
    Dim cambiador41c3 As Boolean = False
    Dim cambiador41c4 As Boolean = False

    Dim cambiador42c1 As Boolean = False
    Dim cambiador42c2 As Boolean = False
    Dim cambiador42c3 As Boolean = False
    Dim cambiador42c4 As Boolean = False


    Dim cambiador43c1 As Boolean = False
    Dim cambiador43c2 As Boolean = False
    Dim cambiador43c3 As Boolean = False
    Dim cambiador43c4 As Boolean = False


    Dim cambiador44c1 As Boolean = False
    Dim cambiador44c2 As Boolean = False
    Dim cambiador44c3 As Boolean = False
    Dim cambiador44c4 As Boolean = False


    Dim cambiador45c1 As Boolean = False
    Dim cambiador45c2 As Boolean = False
    Dim cambiador45c3 As Boolean = False
    Dim cambiador45c4 As Boolean = False


    Dim cambiador46c1 As Boolean = False
    Dim cambiador46c2 As Boolean = False
    Dim cambiador46c3 As Boolean = False
    Dim cambiador46c4 As Boolean = False


    Dim cambiador47c1 As Boolean = False
    Dim cambiador47c2 As Boolean = False
    Dim cambiador47c3 As Boolean = False
    Dim cambiador47c4 As Boolean = False



    Dim cambiador48c1 As Boolean = False
    Dim cambiador48c2 As Boolean = False
    Dim cambiador48c3 As Boolean = False
    Dim cambiador48c4 As Boolean = False


    Dim diente11c1 As Integer = 0
    Dim diente11c2 As Integer = 0
    Dim diente11c3 As Integer = 0
    Dim diente11c4 As Integer = 0

    Dim diente12c1 As Integer = 0
    Dim diente12c2 As Integer = 0
    Dim diente12c3 As Integer = 0
    Dim diente12c4 As Integer = 0

    Dim diente13c1 As Integer = 0
    Dim diente13c2 As Integer = 0
    Dim diente13c3 As Integer = 0
    Dim diente13c4 As Integer = 0

    Dim diente14c1 As Integer = 0
    Dim diente14c2 As Integer = 0
    Dim diente14c3 As Integer = 0
    Dim diente14c4 As Integer = 0

    Dim diente15c1 As Integer = 0
    Dim diente15c2 As Integer = 0
    Dim diente15c3 As Integer = 0
    Dim diente15c4 As Integer = 0

    Dim diente16c1 As Integer = 0
    Dim diente16c2 As Integer = 0
    Dim diente16c3 As Integer = 0
    Dim diente16c4 As Integer = 0

    Dim diente17c1 As Integer = 0
    Dim diente17c2 As Integer = 0
    Dim diente17c3 As Integer = 0
    Dim diente17c4 As Integer = 0

    Dim diente18c1 As Integer = 0
    Dim diente18c2 As Integer = 0
    Dim diente18c3 As Integer = 0
    Dim diente18c4 As Integer = 0

    Dim diente21c1 As Integer = 0
    Dim diente21c2 As Integer = 0
    Dim diente21c3 As Integer = 0
    Dim diente21c4 As Integer = 0

    Dim diente22c1 As Integer = 0
    Dim diente22c2 As Integer = 0
    Dim diente22c3 As Integer = 0
    Dim diente22c4 As Integer = 0

    Dim diente23c1 As Integer = 0
    Dim diente23c2 As Integer = 0
    Dim diente23c3 As Integer = 0
    Dim diente23c4 As Integer = 0

    Dim diente24c1 As Integer = 0
    Dim diente24c2 As Integer = 0
    Dim diente24c3 As Integer = 0
    Dim diente24c4 As Integer = 0


    Dim diente25c1 As Integer = 0
    Dim diente25c2 As Integer = 0
    Dim diente25c3 As Integer = 0
    Dim diente25c4 As Integer = 0


    Dim diente26c1 As Integer = 0
    Dim diente26c2 As Integer = 0
    Dim diente26c3 As Integer = 0
    Dim diente26c4 As Integer = 0

    Dim diente27c1 As Integer = 0
    Dim diente27c2 As Integer = 0
    Dim diente27c3 As Integer = 0
    Dim diente27c4 As Integer = 0

    Dim diente28c1 As Integer = 0
    Dim diente28c2 As Integer = 0
    Dim diente28c3 As Integer = 0
    Dim diente28c4 As Integer = 0

    Dim diente31c1 As Integer = 0
    Dim diente31c2 As Integer = 0
    Dim diente31c3 As Integer = 0
    Dim diente31c4 As Integer = 0

    Dim diente32c1 As Integer = 0
    Dim diente32c2 As Integer = 0
    Dim diente32c3 As Integer = 0
    Dim diente32c4 As Integer = 0


    Dim diente33c1 As Integer = 0
    Dim diente33c2 As Integer = 0
    Dim diente33c3 As Integer = 0
    Dim diente33c4 As Integer = 0


    Dim diente34c1 As Integer = 0
    Dim diente34c2 As Integer = 0
    Dim diente34c3 As Integer = 0
    Dim diente34c4 As Integer = 0


    Dim diente35c1 As Integer = 0
    Dim diente35c2 As Integer = 0
    Dim diente35c3 As Integer = 0
    Dim diente35c4 As Integer = 0


    Dim diente36c1 As Integer = 0
    Dim diente36c2 As Integer = 0
    Dim diente36c3 As Integer = 0
    Dim diente36c4 As Integer = 0


    Dim diente37c1 As Integer = 0
    Dim diente37c2 As Integer = 0
    Dim diente37c3 As Integer = 0
    Dim diente37c4 As Integer = 0


    Dim diente38c1 As Integer = 0
    Dim diente38c2 As Integer = 0
    Dim diente38c3 As Integer = 0
    Dim diente38c4 As Integer = 0


    Dim diente41c1 As Integer = 0
    Dim diente41c2 As Integer = 0
    Dim diente41c3 As Integer = 0
    Dim diente41c4 As Integer = 0


    Dim diente42c1 As Integer = 0
    Dim diente42c2 As Integer = 0
    Dim diente42c3 As Integer = 0
    Dim diente42c4 As Integer = 0

    Dim diente43c1 As Integer = 0
    Dim diente43c2 As Integer = 0
    Dim diente43c3 As Integer = 0
    Dim diente43c4 As Integer = 0

    Dim diente44c1 As Integer = 0
    Dim diente44c2 As Integer = 0
    Dim diente44c3 As Integer = 0
    Dim diente44c4 As Integer = 0

    Dim diente45c1 As Integer = 0
    Dim diente45c2 As Integer = 0
    Dim diente45c3 As Integer = 0
    Dim diente45c4 As Integer = 0

    Dim diente46c1 As Integer = 0
    Dim diente46c2 As Integer = 0
    Dim diente46c3 As Integer = 0
    Dim diente46c4 As Integer = 0

    Dim diente47c1 As Integer = 0
    Dim diente47c2 As Integer = 0
    Dim diente47c3 As Integer = 0
    Dim diente47c4 As Integer = 0

    Dim diente48c1 As Integer = 0
    Dim diente48c2 As Integer = 0
    Dim diente48c3 As Integer = 0
    Dim diente48c4 As Integer = 0

    Dim zona1 As String = "arriba-izquierda"
    Dim zona2 As String = "arriba-derecha"
    Dim zona3 As String = "abajo-derecha"
    Dim zona4 As String = "abajo-izquierda"



    Dim diente11c1E As String
    Dim diente11c2E As String
    Dim diente11c3E As String
    Dim diente11c4E As String

    Dim diente12c1E As String
    Dim diente12c2E As String
    Dim diente12c3E As String
    Dim diente12c4E As String

    Dim diente13c1E As String
    Dim diente13c2E As String
    Dim diente13c3E As String
    Dim diente13c4E As String

    Dim diente14c1E As String
    Dim diente14c2E As String
    Dim diente14c3E As String
    Dim diente14c4E As String

    Dim diente15c1E As String
    Dim diente15c2E As String
    Dim diente15c3E As String
    Dim diente15c4E As String

    Dim diente16c1E As String
    Dim diente16c2E As String
    Dim diente16c3E As String
    Dim diente16c4E As String

    Dim diente17c1E As String
    Dim diente17c2E As String
    Dim diente17c3E As String
    Dim diente17c4E As String

    Dim diente18c1E As String
    Dim diente18c2E As String
    Dim diente18c3E As String
    Dim diente18c4E As String

    Dim diente21c1E As String
    Dim diente21c2E As String
    Dim diente21c3E As String
    Dim diente21c4E As String

    Dim diente22c1E As String
    Dim diente22c2E As String
    Dim diente22c3E As String
    Dim diente22c4E As String

    Dim diente23c1E As String
    Dim diente23c2E As String
    Dim diente23c3E As String
    Dim diente23c4E As String

    Dim diente24c1E As String
    Dim diente24c2E As String
    Dim diente24c3E As String
    Dim diente24c4E As String


    Dim diente25c1E As String
    Dim diente25c2E As String
    Dim diente25c3E As String
    Dim diente25c4E As String


    Dim diente26c1E As String
    Dim diente26c2E As String
    Dim diente26c3E As String
    Dim diente26c4E As String

    Dim diente27c1E As String
    Dim diente27c2E As String
    Dim diente27c3E As String
    Dim diente27c4E As String

    Dim diente28c1E As String
    Dim diente28c2E As String
    Dim diente28c3E As String
    Dim diente28c4E As String

    Dim diente31c1E As String
    Dim diente31c2E As String
    Dim diente31c3E As String
    Dim diente31c4E As String

    Dim diente32c1E As String
    Dim diente32c2E As String
    Dim diente32c3E As String
    Dim diente32c4E As String


    Dim diente33c1E As String
    Dim diente33c2E As String
    Dim diente33c3E As String
    Dim diente33c4E As String


    Dim diente34c1E As String
    Dim diente34c2E As String
    Dim diente34c3E As String
    Dim diente34c4E As String


    Dim diente35c1E As String
    Dim diente35c2E As String
    Dim diente35c3E As String
    Dim diente35c4E As String


    Dim diente36c1E As String
    Dim diente36c2E As String
    Dim diente36c3E As String
    Dim diente36c4E As String


    Dim diente37c1E As String
    Dim diente37c2E As String
    Dim diente37c3E As String
    Dim diente37c4E As String


    Dim diente38c1E As String
    Dim diente38c2E As String
    Dim diente38c3E As String
    Dim diente38c4E As String


    Dim diente41c1E As String
    Dim diente41c2E As String
    Dim diente41c3E As String
    Dim diente41c4E As String


    Dim diente42c1E As String
    Dim diente42c2E As String
    Dim diente42c3E As String
    Dim diente42c4E As String

    Dim diente43c1E As String
    Dim diente43c2E As String
    Dim diente43c3E As String
    Dim diente43c4E As String

    Dim diente44c1E As String
    Dim diente44c2E As String
    Dim diente44c3E As String
    Dim diente44c4E As String

    Dim diente45c1E As String
    Dim diente45c2E As String
    Dim diente45c3E As String
    Dim diente45c4E As String

    Dim diente46c1E As String
    Dim diente46c2E As String
    Dim diente46c3E As String
    Dim diente46c4E As String

    Dim diente47c1E As String
    Dim diente47c2E As String
    Dim diente47c3E As String
    Dim diente47c4E As String

    Dim diente48c1E As String
    Dim diente48c2E As String
    Dim diente48c3E As String
    Dim diente48c4E As String

    Private Sub PnlDiente18c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente18c4.Click
        diente18c4 = diente18c4 + 1
        cambiador18c4 = True
        

        Select Case diente18c4
            Case 0
                PnlDiente18c4.BackColor = Color.White
                diente18c4E = "normal"
            Case 1
                PnlDiente18c4.BackColor = Color.Yellow
                diente18c4E = "precaucion"
            Case 2
                PnlDiente18c4.BackColor = Color.Red
                diente18c4E = "alerta"
            Case 3
                PnlDiente18c4.BackColor = Color.Black
                diente18c4E = "ausente"
            Case 4
                PnlDiente18c4.BackColor = Color.White
                diente18c4E = "normal"
                diente18c4 = 0

        End Select

    End Sub

    Private Sub PnlDiente18c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente18c3.Click
        diente18c3 = diente18c3 + 1
        cambiador18c3 = True

        Select Case diente18c3
            Case 0
                PnlDiente18c3.BackColor = Color.White
                diente18c3E = "normal"
            Case 1
                PnlDiente18c3.BackColor = Color.Yellow
                diente18c3E = "precaucion"
            Case 2
                PnlDiente18c3.BackColor = Color.Red
                diente18c3E = "alerta"
            Case 3
                PnlDiente18c3.BackColor = Color.Black
                diente18c3E = "ausente"
            Case 4
                PnlDiente18c3.BackColor = Color.White
                diente18c3E = "normal"
                diente18c3 = 0

        End Select
    End Sub

    Private Sub PnlDiente18c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente18c2.Click
        diente18c2 = diente18c2 + 1
        cambiador18c2 = True

        Select Case diente18c2
            Case 0
                PnlDiente18c2.BackColor = Color.White
                diente18c2E = "normal"
            Case 1
                PnlDiente18c2.BackColor = Color.Yellow
                diente18c2E = "precaucion"
            Case 2
                PnlDiente18c2.BackColor = Color.Red
                diente18c2E = "alerta"
            Case 3
                PnlDiente18c2.BackColor = Color.Black
                diente18c2E = "ausente"
            Case 4
                PnlDiente18c2.BackColor = Color.White
                diente18c2E = "normal"
                diente18c2 = 0

        End Select

    End Sub

    Private Sub PnlDiente18c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente18c1.Click
        diente18c1 = diente18c1 + 1
        cambiador18c1 = True

        Select Case diente18c1
            Case 0
                PnlDiente18c1.BackColor = Color.White
                diente18c1E = "normal"
            Case 1
                PnlDiente18c1.BackColor = Color.Yellow
                diente18c1E = "precaucion"
            Case 2
                PnlDiente18c1.BackColor = Color.Red
                diente18c1E = "alerta"
            Case 3
                PnlDiente18c1.BackColor = Color.Black
                diente18c1E = "ausente"
            Case 4
                PnlDiente18c1.BackColor = Color.White
                diente18c1E = "normal"
                diente18c1 = 0

        End Select
    End Sub

    Private Sub PnlDiente17c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente17c4.Click
        diente17c4 = diente17c4 + 1
        cambiador17c4 = True

        Select Case diente17c4
            Case 0
                PnlDiente17c4.BackColor = Color.White
                diente17c4E = "normal"
            Case 1
                PnlDiente17c4.BackColor = Color.Yellow
                diente17c4E = "precaucion"
            Case 2
                PnlDiente17c4.BackColor = Color.Red
                diente17c4E = "alerta"
            Case 3
                PnlDiente17c4.BackColor = Color.Black
                diente17c4E = "ausente"
            Case 4
                PnlDiente17c4.BackColor = Color.White
                diente17c4E = "normal"
                diente17c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente17c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente17c3.Click
        diente17c3 = diente17c3 + 1
        cambiador17c3 = True

        Select Case diente17c3
            Case 0
                PnlDiente17c3.BackColor = Color.White
                diente17c3E = "normal"
            Case 1
                PnlDiente17c3.BackColor = Color.Yellow
                diente17c3E = "precaucion"
            Case 2
                PnlDiente17c3.BackColor = Color.Red
                diente17c3E = "alerta"
            Case 3
                PnlDiente17c3.BackColor = Color.Black
                diente17c3E = "ausente"
            Case 4
                PnlDiente17c3.BackColor = Color.White
                diente17c3E = "normal"
                diente17c3 = 0

        End Select
    End Sub

    Private Sub PnlDiente17c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente17c2.Click
        diente17c2 = diente17c2 + 1
        cambiador17c2 = True

        Select Case diente17c2
            Case 0
                PnlDiente17c2.BackColor = Color.White
                diente17c2E = "normal"
            Case 1
                PnlDiente17c2.BackColor = Color.Yellow
                diente17c2E = "precaucion"
            Case 2
                PnlDiente17c2.BackColor = Color.Red
                diente17c2E = "alerta"
            Case 3
                PnlDiente17c2.BackColor = Color.Black
                diente17c2E = "ausente"
            Case 4
                PnlDiente17c2.BackColor = Color.White
                diente17c2E = "normal"
                diente17c2 = 0

        End Select


    End Sub

    Private Sub PnlDiente17c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente17c1.Click
        diente17c1 = diente17c1 + 1
        cambiador17c1 = True

        Select Case diente17c1
            Case 0
                PnlDiente17c1.BackColor = Color.White
                diente17c1E = "normal"
            Case 1
                PnlDiente17c1.BackColor = Color.Yellow
                diente17c1E = "precaucion"
            Case 2
                PnlDiente17c1.BackColor = Color.Red
                diente17c1E = "alerta"
            Case 3
                PnlDiente17c1.BackColor = Color.Black
                diente17c1E = "ausente"
            Case 4
                PnlDiente17c1.BackColor = Color.White
                diente17c1E = "normal"
                diente17c1 = 0

        End Select

    End Sub

    Private Sub PnlDiente16c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente16c4.Click
        diente16c4 = diente16c4 + 1
        cambiador16c4 = True

        Select Case diente16c4
            Case 0
                PnlDiente16c4.BackColor = Color.White
                diente16c4E = "normal"
            Case 1
                PnlDiente16c4.BackColor = Color.Yellow
                diente16c4E = "precaucion"
            Case 2
                PnlDiente16c4.BackColor = Color.Red
                diente16c4E = "alerta"
            Case 3
                PnlDiente16c4.BackColor = Color.Black
                diente16c4E = "ausente"
            Case 4
                PnlDiente16c4.BackColor = Color.White
                diente16c4E = "normal"
                diente16c4 = 0

        End Select

    End Sub

    Private Sub PnlDiente16c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente16c3.Click
        diente16c3 = diente16c3 + 1
        cambiador16c3 = True

        Select Case diente16c3
            Case 0
                PnlDiente16c3.BackColor = Color.White
                diente16c3E = "normal"
            Case 1
                PnlDiente16c3.BackColor = Color.Yellow
                diente16c3E = "precaucion"
            Case 2
                PnlDiente16c3.BackColor = Color.Red
                diente16c3E = "alerta"
            Case 3
                PnlDiente16c3.BackColor = Color.Black
                diente16c3E = "ausente"
            Case 4
                PnlDiente16c3.BackColor = Color.White
                diente16c3E = "normal"
                diente16c3 = 0

        End Select

    End Sub


    Private Sub PnlDiente16c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente16c2.Click
        diente16c2 = diente16c2 + 1
        cambiador16c2 = True

        Select Case diente16c2
            Case 0
                PnlDiente16c2.BackColor = Color.White
                diente16c2E = "normal"
            Case 1
                PnlDiente16c2.BackColor = Color.Yellow
                diente16c2E = "precaucion"
            Case 2
                PnlDiente16c2.BackColor = Color.Red
                diente16c2E = "alerta"
            Case 3
                PnlDiente16c2.BackColor = Color.Black
                diente16c2E = "ausente"
            Case 4
                PnlDiente16c2.BackColor = Color.White
                diente16c2E = "normal"
                diente16c2 = 0

        End Select
    End Sub



    Private Sub PnlDiente16c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente16c1.Click
        diente16c1 = diente16c1 + 1
        cambiador16c1 = True

        Select Case diente16c1
            Case 0
                PnlDiente16c1.BackColor = Color.White
                diente16c1E = "normal"
            Case 1
                PnlDiente16c1.BackColor = Color.Yellow
                diente16c1E = "precaucion"
            Case 2
                PnlDiente16c1.BackColor = Color.Red
                diente16c1E = "alerta"
            Case 3
                PnlDiente16c1.BackColor = Color.Black
                diente16c1E = "ausente"
            Case 4
                PnlDiente16c1.BackColor = Color.White
                diente16c1E = "normal"
                diente16c1 = 0

        End Select

    End Sub


    Private Sub PnlDiente15c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente15c4.Click
        diente15c4 = diente15c4 + 1
        cambiador15c4 = True

        Select Case diente15c4
            Case 0
                PnlDiente15c4.BackColor = Color.White
                diente15c4E = "normal"
            Case 1
                PnlDiente15c4.BackColor = Color.Yellow
                diente15c4E = "precaucion"
            Case 2
                PnlDiente15c4.BackColor = Color.Red
                diente15c4E = "alerta"
            Case 3
                PnlDiente15c4.BackColor = Color.Black
                diente15c4E = "ausente"
            Case 4
                PnlDiente15c4.BackColor = Color.White
                diente15c4E = "normal"
                diente15c4 = 0

        End Select

    End Sub


    Private Sub PnlDiente15c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente15c3.Click
        diente15c3 = diente15c3 + 1
        cambiador15c3 = True

        Select Case diente15c3
            Case 0
                PnlDiente15c3.BackColor = Color.White
                diente15c3E = "normal"
            Case 1
                PnlDiente15c3.BackColor = Color.Yellow
                diente15c3E = "precaucion"
            Case 2
                PnlDiente15c3.BackColor = Color.Red
                diente15c3E = "alerta"
            Case 3
                PnlDiente15c3.BackColor = Color.Black
                diente15c3E = "ausente"
            Case 4
                PnlDiente15c3.BackColor = Color.White
                diente15c3E = "normal"
                diente15c3 = 0

        End Select
    End Sub

    Private Sub PnlDiente15c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente15c2.Click
        diente15c2 = diente15c2 + 1
        cambiador15c2 = True

        Select Case diente15c2
            Case 0
                PnlDiente15c2.BackColor = Color.White
                diente15c2E = "normal"
            Case 1
                PnlDiente15c2.BackColor = Color.Yellow
                diente15c2E = "precaucion"
            Case 2
                PnlDiente15c2.BackColor = Color.Red
                diente15c2E = "alerta"
            Case 3
                PnlDiente15c2.BackColor = Color.Black
                diente15c2E = "ausente"
            Case 4
                PnlDiente15c2.BackColor = Color.White
                diente15c2E = "normal"
                diente15c2 = 0

        End Select
    End Sub

    Private Sub PnlDiente15c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente15c1.Click
        diente15c1 = diente15c1 + 1
        cambiador15c1 = True

        Select Case diente15c1
            Case 0
                PnlDiente15c1.BackColor = Color.White
                diente15c1E = "normal"
            Case 1
                PnlDiente15c1.BackColor = Color.Yellow
                diente15c1E = "precaucion"
            Case 2
                PnlDiente15c1.BackColor = Color.Red
                diente15c1E = "alerta"
            Case 3
                PnlDiente15c1.BackColor = Color.Black
                diente15c1E = "ausente"
            Case 4
                PnlDiente15c1.BackColor = Color.White
                diente15c1E = "normal"
                diente15c1 = 0

        End Select

    End Sub


    Private Sub PnlDiente14c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente14c4.Click
        diente14c4 = diente14c4 + 1
        cambiador14c4 = True

        Select Case diente14c4
            Case 0
                PnlDiente14c4.BackColor = Color.White
                diente14c4E = "normal"
            Case 1
                PnlDiente14c4.BackColor = Color.Yellow
                diente14c4E = "precaucion"
            Case 2
                PnlDiente14c4.BackColor = Color.Red
                diente14c4E = "alerta"
            Case 3
                PnlDiente14c4.BackColor = Color.Black
                diente14c4E = "ausente"
            Case 4
                PnlDiente14c4.BackColor = Color.White
                diente14c4E = "normal"
                diente14c4 = 0

        End Select
    End Sub


    Private Sub PnlDiente14c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente14c3.Click
        diente14c3 = diente14c3 + 1
        cambiador14c3 = True

        Select Case diente14c3
            Case 0
                PnlDiente14c3.BackColor = Color.White
                diente14c3E = "normal"
            Case 1
                PnlDiente14c3.BackColor = Color.Yellow
                diente14c3E = "precaucion"
            Case 2
                PnlDiente14c3.BackColor = Color.Red
                diente14c3E = "alerta"
            Case 3
                PnlDiente14c3.BackColor = Color.Black
                diente14c3E = "ausente"
            Case 4
                PnlDiente14c3.BackColor = Color.White
                diente14c3E = "normal"
                diente14c3 = 0

        End Select
    End Sub

    Private Sub PnlDiente14c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente14c2.Click
        diente14c2 = diente14c2 + 1
        cambiador14c2 = True

        Select Case diente14c2
            Case 0
                PnlDiente14c2.BackColor = Color.White
                diente14c2E = "normal"
            Case 1
                PnlDiente14c2.BackColor = Color.Yellow
                diente14c2E = "precaucion"
            Case 2
                PnlDiente14c2.BackColor = Color.Red
                diente14c2E = "alerta"
            Case 3
                PnlDiente14c2.BackColor = Color.Black
                diente14c2E = "ausente"
            Case 4
                PnlDiente14c2.BackColor = Color.White
                diente14c2E = "normal"
                diente14c2 = 0

        End Select

    End Sub



    Private Sub PnlDiente14c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente14c1.Click
        diente14c1 = diente14c1 + 1
        cambiador14c1 = True

        Select Case diente14c1
            Case 0
                PnlDiente14c1.BackColor = Color.White
                diente14c1E = "normal"
            Case 1
                PnlDiente14c1.BackColor = Color.Yellow
                diente14c1E = "precaucion"
            Case 2
                PnlDiente14c1.BackColor = Color.Red
                diente14c1E = "alerta"
            Case 3
                PnlDiente14c1.BackColor = Color.Black
                diente14c1E = "ausente"
            Case 4
                PnlDiente14c1.BackColor = Color.White
                diente14c1E = "normal"
                diente14c1 = 0

        End Select
    End Sub




    Private Sub PnlDiente13c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente13c4.Click
        diente13c4 = diente13c4 + 1
        cambiador13c4 = True

        Select Case diente13c4
            Case 0
                PnlDiente13c4.BackColor = Color.White
                diente13c4E = "normal"
            Case 1
                PnlDiente13c4.BackColor = Color.Yellow
                diente13c4E = "precaucion"
            Case 2
                PnlDiente13c4.BackColor = Color.Red
                diente13c4E = "alerta"
            Case 3
                PnlDiente13c4.BackColor = Color.Black
                diente13c4E = "ausente"
            Case 4
                PnlDiente13c4.BackColor = Color.White
                diente13c4E = "normal"
                diente13c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente13c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente13c3.Click
        diente13c3 = diente13c3 + 1
        cambiador13c3 = True

        Select Case diente13c3
            Case 0
                PnlDiente13c3.BackColor = Color.White
                diente13c3E = "normal"
            Case 1
                PnlDiente13c3.BackColor = Color.Yellow
                diente13c3E = "precaucion"
            Case 2
                PnlDiente13c3.BackColor = Color.Red
                diente13c3E = "alerta"
            Case 3
                PnlDiente13c3.BackColor = Color.Black
                diente13c3E = "ausente"
            Case 4
                PnlDiente13c3.BackColor = Color.White
                diente13c3E = "normal"
                diente13c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente13c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente13c2.Click
        diente13c2 = diente13c2 + 1
        cambiador13c2 = True

        Select Case diente13c2
            Case 0
                PnlDiente13c2.BackColor = Color.White
                diente13c2E = "normal"
            Case 1
                PnlDiente13c2.BackColor = Color.Yellow
                diente13c2E = "precaucion"
            Case 2
                PnlDiente13c2.BackColor = Color.Red
                diente13c2E = "alerta"
            Case 3
                PnlDiente13c2.BackColor = Color.Black
                diente13c2E = "ausente"
            Case 4
                PnlDiente13c2.BackColor = Color.White
                diente13c2E = "normal"
                diente13c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente13c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente13c1.Click
        diente13c1 = diente13c1 + 1
        cambiador13c1 = True

        Select Case diente13c1
            Case 0
                PnlDiente13c1.BackColor = Color.White
                diente13c1E = "normal"
            Case 1
                PnlDiente13c1.BackColor = Color.Yellow
                diente13c1E = "precaucion"
            Case 2
                PnlDiente13c1.BackColor = Color.Red
                diente13c1E = "alerta"
            Case 3
                PnlDiente13c1.BackColor = Color.Black
                diente13c1E = "ausente"
            Case 4
                PnlDiente13c1.BackColor = Color.White
                diente13c1E = "normal"
                diente13c1 = 0

        End Select
    End Sub


    Private Sub PnlDiente12c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente12c4.Click
        diente12c4 = diente12c4 + 1
        cambiador12c4 = True

        Select Case diente12c4
            Case 0
                PnlDiente12c4.BackColor = Color.White
                diente12c4E = "normal"
            Case 1
                PnlDiente12c4.BackColor = Color.Yellow
                diente12c4E = "precaucion"
            Case 2
                PnlDiente12c4.BackColor = Color.Red
                diente12c4E = "alerta"
            Case 3
                PnlDiente12c4.BackColor = Color.Black
                diente12c4E = "ausente"
            Case 4
                PnlDiente12c4.BackColor = Color.White
                diente12c4E = "normal"
                diente12c4 = 0

        End Select
    End Sub



    Private Sub PnlDiente12c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente12c3.Click
        diente12c3 = diente12c3 + 1
        cambiador12c3 = True

        Select Case diente12c3
            Case 0
                PnlDiente12c3.BackColor = Color.White
                diente12c3E = "normal"
            Case 1
                PnlDiente12c3.BackColor = Color.Yellow
                diente12c3E = "precaucion"
            Case 2
                PnlDiente12c3.BackColor = Color.Red
                diente12c3E = "alerta"
            Case 3
                PnlDiente12c3.BackColor = Color.Black
                diente12c3E = "ausente"
            Case 4
                PnlDiente12c3.BackColor = Color.White
                diente12c3E = "normal"
                diente12c3 = 0

        End Select
    End Sub



    Private Sub PnlDiente12c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente12c2.Click
        diente12c2 = diente12c2 + 1
        cambiador12c2 = True

        Select Case diente12c2
            Case 0
                PnlDiente12c2.BackColor = Color.White
                diente12c2E = "normal"
            Case 1
                PnlDiente12c2.BackColor = Color.Yellow
                diente12c2E = "precaucion"
            Case 2
                PnlDiente12c2.BackColor = Color.Red
                diente12c2E = "alerta"
            Case 3
                PnlDiente12c2.BackColor = Color.Black
                diente12c2E = "ausente"
            Case 4
                PnlDiente12c2.BackColor = Color.White
                diente12c2E = "normal"
                diente12c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente12c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente12c1.Click
        diente12c1 = diente12c1 + 1
        cambiador12c1 = True

        Select Case diente12c1
            Case 0
                PnlDiente12c1.BackColor = Color.White
                diente12c1E = "normal"
            Case 1
                PnlDiente12c1.BackColor = Color.Yellow
                diente12c1E = "precaucion"
            Case 2
                PnlDiente12c1.BackColor = Color.Red
                diente12c1E = "alerta"
            Case 3
                PnlDiente12c1.BackColor = Color.Black
                diente12c1E = "ausente"
            Case 4
                PnlDiente12c1.BackColor = Color.White
                diente12c1E = "normal"
                diente12c1 = 0

        End Select

    End Sub

    Private Sub PnlDiente11c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente11c4.Click
        diente11c4 = diente11c4 + 1
        cambiador11c4 = True

        Select Case diente11c4
            Case 0
                PnlDiente11c4.BackColor = Color.White
                diente11c4E = "normal"
            Case 1
                PnlDiente11c4.BackColor = Color.Yellow
                diente11c4E = "precaucion"
            Case 2
                PnlDiente11c4.BackColor = Color.Red
                diente11c4E = "alerta"
            Case 3
                PnlDiente11c4.BackColor = Color.Black
                diente11c4E = "ausente"
            Case 4
                PnlDiente11c4.BackColor = Color.White
                diente11c4E = "normal"
                diente11c4 = 0

        End Select
    End Sub


    Private Sub PnlDiente11c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente11c3.Click
        diente11c3 = diente11c3 + 1
        cambiador11c3 = True

        Select Case diente11c3
            Case 0
                PnlDiente11c3.BackColor = Color.White
                diente11c3E = "normal"
            Case 1
                PnlDiente11c3.BackColor = Color.Yellow
                diente11c3E = "precaucion"
            Case 2
                PnlDiente11c3.BackColor = Color.Red
                diente11c3E = "alerta"
            Case 3
                PnlDiente11c3.BackColor = Color.Black
                diente11c3E = "ausente"
            Case 4
                PnlDiente11c3.BackColor = Color.White
                diente11c3E = "normal"
                diente11c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente11c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente11c2.Click
        diente11c2 = diente11c2 + 1
        cambiador11c2 = True

        Select Case diente11c2
            Case 0
                PnlDiente11c2.BackColor = Color.White
                diente11c2E = "normal"
            Case 1
                PnlDiente11c2.BackColor = Color.Yellow
                diente11c2E = "precaucion"
            Case 2
                PnlDiente11c2.BackColor = Color.Red
                diente11c2E = "alerta"
            Case 3
                PnlDiente11c2.BackColor = Color.Black
                diente11c2E = "ausente"
            Case 4
                PnlDiente11c2.BackColor = Color.White
                diente11c2E = "normal"
                diente11c2 = 0

        End Select
    End Sub

    Private Sub PnlDiente11c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente11c1.Click
        diente11c1 = diente11c1 + 1
        cambiador11c1 = True

        Select Case diente11c1
            Case 0
                PnlDiente11c1.BackColor = Color.White
                diente11c1E = "normal"
            Case 1
                PnlDiente11c1.BackColor = Color.Yellow
                diente11c1E = "precaucion"
            Case 2
                PnlDiente11c1.BackColor = Color.Red
                diente11c1E = "alerta"
            Case 3
                PnlDiente11c1.BackColor = Color.Black
                diente11c1E = "ausente"
            Case 4
                PnlDiente11c1.BackColor = Color.White
                diente11c1E = "normal"
                diente11c1 = 0

        End Select
    End Sub

    '------------------------------------zona2-------------------------------------------

    Private Sub PnlDiente28c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente28c4.Click

        diente28c4 = diente28c4 + 1
        cambiador28c4 = True

        Select Case diente28c4
            Case 0
                PnlDiente28c4.BackColor = Color.White
                diente28c4E = "normal"
            Case 1
                PnlDiente18c4.BackColor = Color.Yellow
                diente28c4E = "precaucion"
            Case 2
                PnlDiente28c4.BackColor = Color.Red
                diente28c4E = "alerta"
            Case 3
                PnlDiente28c4.BackColor = Color.Black
                diente28c4E = "ausente"
            Case 4
                PnlDiente28c4.BackColor = Color.White
                diente28c4E = "normal"
                diente28c4 = 0

        End Select
    End Sub
    Private Sub PnlDiente28c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente28c3.Click
        diente28c3 = diente28c3 + 1
        cambiador28c3 = True

        Select Case diente28c3
            Case 0
                PnlDiente28c3.BackColor = Color.White
                diente28c3E = "normal"
            Case 1
                PnlDiente28c3.BackColor = Color.Yellow
                diente28c3E = "precaucion"
            Case 2
                PnlDiente28c3.BackColor = Color.Red
                diente28c3E = "alerta"
            Case 3
                PnlDiente28c3.BackColor = Color.Black
                diente28c3E = "ausente"
            Case 4
                PnlDiente28c3.BackColor = Color.White
                diente28c3E = "normal"
                diente28c3 = 0

        End Select
    End Sub
    Private Sub PnlDiente28c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente28c2.Click
        diente28c2 = diente28c2 + 1
        cambiador28c2 = True

        Select Case diente28c2
            Case 0
                PnlDiente28c2.BackColor = Color.White
                diente28c2E = "normal"
            Case 1
                PnlDiente28c2.BackColor = Color.Yellow
                diente28c2E = "precaucion"
            Case 2
                PnlDiente28c2.BackColor = Color.Red
                diente28c2E = "alerta"
            Case 3
                PnlDiente28c2.BackColor = Color.Black
                diente28c2E = "ausente"
            Case 4
                PnlDiente28c2.BackColor = Color.White
                diente28c2E = "normal"
                diente28c2 = 0

        End Select


    End Sub


    Private Sub PnlDiente28c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente28c1.Click
        diente28c1 = diente28c1 + 1
        cambiador18c1 = True

        Select Case diente28c1
            Case 0
                PnlDiente28c1.BackColor = Color.White
                diente28c1E = "normal"
            Case 1
                PnlDiente28c1.BackColor = Color.Yellow
                diente28c1E = "precaucion"
            Case 2
                PnlDiente28c1.BackColor = Color.Red
                diente28c1E = "alerta"
            Case 3
                PnlDiente28c1.BackColor = Color.Black
                diente28c1E = "ausente"
            Case 4
                PnlDiente28c1.BackColor = Color.White
                diente28c1E = "normal"
                diente28c1 = 0

        End Select
    End Sub


    Private Sub PnlDiente27c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente27c4.Click
        diente27c4 = diente27c4 + 1
        cambiador27c4 = True

        Select Case diente27c4
            Case 0
                PnlDiente27c4.BackColor = Color.White
                diente27c4E = "normal"
            Case 1
                PnlDiente27c4.BackColor = Color.Yellow
                diente27c4E = "precaucion"
            Case 2
                PnlDiente27c4.BackColor = Color.Red
                diente27c4E = "alerta"
            Case 3
                PnlDiente27c4.BackColor = Color.Black
                diente27c4E = "ausente"
            Case 4
                PnlDiente27c4.BackColor = Color.White
                diente27c4E = "normal"
                diente27c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente27c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente27c3.Click
        diente27c3 = diente17c3 + 1
        cambiador27c3 = True

        Select Case diente27c3
            Case 0
                PnlDiente27c3.BackColor = Color.White
                diente27c3E = "normal"
            Case 1
                PnlDiente27c3.BackColor = Color.Yellow
                diente27c3E = "precaucion"
            Case 2
                PnlDiente27c3.BackColor = Color.Red
                diente27c3E = "alerta"
            Case 3
                PnlDiente27c3.BackColor = Color.Black
                diente27c3E = "ausente"
            Case 4
                PnlDiente27c3.BackColor = Color.White
                diente27c3E = "normal"
                diente27c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente27c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente27c2.Click
        diente27c2 = diente27c2 + 1
        cambiador27c2 = True

        Select Case diente27c2
            Case 0
                PnlDiente27c2.BackColor = Color.White
                diente27c2E = "normal"
            Case 1
                PnlDiente27c2.BackColor = Color.Yellow
                diente27c2E = "precaucion"
            Case 2
                PnlDiente27c2.BackColor = Color.Red
                diente27c2E = "alerta"
            Case 3
                PnlDiente27c2.BackColor = Color.Black
                diente27c2E = "ausente"
            Case 4
                PnlDiente27c2.BackColor = Color.White
                diente27c2E = "normal"
                diente27c2 = 0

        End Select


    End Sub

    Private Sub PnlDiente27c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente27c1.Click
        diente27c1 = diente27c1 + 1
        cambiador17c1 = True

        Select Case diente27c1
            Case 0
                PnlDiente27c1.BackColor = Color.White
                diente27c1E = "normal"
            Case 1
                PnlDiente27c1.BackColor = Color.Yellow
                diente27c1E = "precaucion"
            Case 2
                PnlDiente27c1.BackColor = Color.Red
                diente27c1E = "alerta"
            Case 3
                PnlDiente27c1.BackColor = Color.Black
                diente27c1E = "ausente"
            Case 4
                PnlDiente27c1.BackColor = Color.White
                diente27c1E = "normal"
                diente27c1 = 0

        End Select

    End Sub

    Private Sub PnlDiente26c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente26c4.Click
        diente26c4 = diente26c4 + 1
        cambiador26c4 = True

        Select Case diente26c4
            Case 0
                PnlDiente26c4.BackColor = Color.White
                diente26c4E = "normal"
            Case 1
                PnlDiente26c4.BackColor = Color.Yellow
                diente26c4E = "precaucion"
            Case 2
                PnlDiente26c4.BackColor = Color.Red
                diente26c4E = "alerta"
            Case 3
                PnlDiente26c4.BackColor = Color.Black
                diente26c4E = "ausente"
            Case 4
                PnlDiente26c4.BackColor = Color.White
                diente26c4E = "normal"
                diente26c4 = 0

        End Select

    End Sub


    Private Sub PnlDiente26c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente26c3.Click
        diente26c3 = diente26c3 + 1
        cambiador26c3 = True

        Select Case diente26c3
            Case 0
                PnlDiente26c3.BackColor = Color.White
                diente26c3E = "normal"
            Case 1
                PnlDiente26c3.BackColor = Color.Yellow
                diente26c3E = "precaucion"
            Case 2
                PnlDiente26c3.BackColor = Color.Red
                diente26c3E = "alerta"
            Case 3
                PnlDiente26c3.BackColor = Color.Black
                diente26c3E = "ausente"
            Case 4
                PnlDiente26c3.BackColor = Color.White
                diente26c3E = "normal"
                diente26c3 = 0

        End Select

    End Sub



    Private Sub PnlDiente26c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente26c2.Click
        diente26c2 = diente26c2 + 1
        cambiador26c2 = True

        Select Case diente26c2
            Case 0
                PnlDiente26c2.BackColor = Color.White
                diente26c2E = "normal"
            Case 1
                PnlDiente26c2.BackColor = Color.Yellow
                diente26c2E = "precaucion"
            Case 2
                PnlDiente26c2.BackColor = Color.Red
                diente26c2E = "alerta"
            Case 3
                PnlDiente26c2.BackColor = Color.Black
                diente26c2E = "ausente"
            Case 4
                PnlDiente26c2.BackColor = Color.White
                diente26c2E = "normal"
                diente26c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente26c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente26c1.Click
        diente26c1 = diente26c1 + 1
        cambiador26c1 = True

        Select Case diente26c1
            Case 0
                PnlDiente26c1.BackColor = Color.White
                diente26c1E = "normal"
            Case 1
                PnlDiente26c1.BackColor = Color.Yellow
                diente26c1E = "precaucion"
            Case 2
                PnlDiente26c1.BackColor = Color.Red
                diente26c1E = "alerta"
            Case 3
                PnlDiente26c1.BackColor = Color.Black
                diente26c1E = "ausente"
            Case 4
                PnlDiente26c1.BackColor = Color.White
                diente26c1E = "normal"
                diente26c1 = 0

        End Select

    End Sub

    Private Sub PnlDiente25c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente25c4.Click
        diente25c4 = diente25c4 + 1
        cambiador25c4 = True

        Select Case diente25c4
            Case 0
                PnlDiente25c4.BackColor = Color.White
                diente25c4E = "normal"
            Case 1
                PnlDiente25c4.BackColor = Color.Yellow
                diente25c4E = "precaucion"
            Case 2
                PnlDiente25c4.BackColor = Color.Red
                diente25c4E = "alerta"
            Case 3
                PnlDiente25c4.BackColor = Color.Black
                diente25c4E = "ausente"
            Case 4
                PnlDiente25c4.BackColor = Color.White
                diente25c4E = "normal"
                diente25c4 = 0

        End Select
    End Sub










    

    Private Sub PnlDiente25c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente25c3.Click
        diente25c3 = diente25c3 + 1
        cambiador25c3 = True

        Select Case diente25c3
            Case 0
                PnlDiente25c3.BackColor = Color.White
                diente25c3E = "normal"
            Case 1
                PnlDiente25c3.BackColor = Color.Yellow
                diente25c3E = "precaucion"
            Case 2
                PnlDiente25c3.BackColor = Color.Red
                diente25c3E = "alerta"
            Case 3
                PnlDiente25c3.BackColor = Color.Black
                diente25c3E = "ausente"
            Case 4
                PnlDiente25c3.BackColor = Color.White
                diente25c3E = "normal"
                diente25c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente25c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente25c2.Click
        diente25c2 = diente25c2 + 1
        cambiador25c2 = True

        Select Case diente25c2
            Case 0
                PnlDiente25c2.BackColor = Color.White
                diente25c2E = "normal"
            Case 1
                PnlDiente25c2.BackColor = Color.Yellow
                diente25c2E = "precaucion"
            Case 2
                PnlDiente25c2.BackColor = Color.Red
                diente25c2E = "alerta"
            Case 3
                PnlDiente25c2.BackColor = Color.Black
                diente25c2E = "ausente"
            Case 4
                PnlDiente25c2.BackColor = Color.White
                diente25c2E = "normal"
                diente25c2 = 0

        End Select
    End Sub




    Private Sub PnlDiente25c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente25c1.Click
        diente25c1 = diente25c1 + 1
        cambiador15c1 = True

        Select Case diente25c1
            Case 0
                PnlDiente25c1.BackColor = Color.White
                diente25c1E = "normal"
            Case 1
                PnlDiente25c1.BackColor = Color.Yellow
                diente25c1E = "precaucion"
            Case 2
                PnlDiente25c1.BackColor = Color.Red
                diente25c1E = "alerta"
            Case 3
                PnlDiente25c1.BackColor = Color.Black
                diente25c1E = "ausente"
            Case 4
                PnlDiente25c1.BackColor = Color.White
                diente25c1E = "normal"
                diente25c1 = 0

        End Select

    End Sub


    Private Sub PnlDiente24c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente24c4.Click
        diente24c4 = diente24c4 + 1
        cambiador24c4 = True

        Select Case diente24c4
            Case 0
                PnlDiente24c4.BackColor = Color.White
                diente24c4E = "normal"
            Case 1
                PnlDiente24c4.BackColor = Color.Yellow
                diente24c4E = "precaucion"
            Case 2
                PnlDiente24c4.BackColor = Color.Red
                diente24c4E = "alerta"
            Case 3
                PnlDiente24c4.BackColor = Color.Black
                diente24c4E = "ausente"
            Case 4
                PnlDiente24c4.BackColor = Color.White
                diente24c4E = "normal"
                diente24c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente24c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente24c3.Click
        diente24c3 = diente24c3 + 1
        cambiador24c3 = True

        Select Case diente24c3
            Case 0
                PnlDiente24c3.BackColor = Color.White
                diente24c3E = "normal"
            Case 1
                PnlDiente24c3.BackColor = Color.Yellow
                diente24c3E = "precaucion"
            Case 2
                PnlDiente24c3.BackColor = Color.Red
                diente24c3E = "alerta"
            Case 3
                PnlDiente24c3.BackColor = Color.Black
                diente24c3E = "ausente"
            Case 4
                PnlDiente24c3.BackColor = Color.White
                diente24c3E = "normal"
                diente24c3 = 0

        End Select
    End Sub



    Private Sub PnlDiente24c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente24c2.Click
        diente24c2 = diente24c2 + 1
        cambiador24c2 = True

        Select Case diente24c2
            Case 0
                PnlDiente24c2.BackColor = Color.White
                diente24c2E = "normal"
            Case 1
                PnlDiente24c2.BackColor = Color.Yellow
                diente24c2E = "precaucion"
            Case 2
                PnlDiente24c2.BackColor = Color.Red
                diente24c2E = "alerta"
            Case 3
                PnlDiente24c2.BackColor = Color.Black
                diente24c2E = "ausente"
            Case 4
                PnlDiente24c2.BackColor = Color.White
                diente24c2E = "normal"
                diente24c2 = 0

        End Select

    End Sub


    Private Sub PnlDiente24c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente24c1.Click
        diente24c1 = diente24c1 + 1
        cambiador24c1 = True

        Select Case diente24c1
            Case 0
                PnlDiente24c1.BackColor = Color.White
                diente24c1E = "normal"
            Case 1
                PnlDiente24c1.BackColor = Color.Yellow
                diente24c1E = "precaucion"
            Case 2
                PnlDiente24c1.BackColor = Color.Red
                diente24c1E = "alerta"
            Case 3
                PnlDiente24c1.BackColor = Color.Black
                diente24c1E = "ausente"
            Case 4
                PnlDiente24c1.BackColor = Color.White
                diente24c1E = "normal"
                diente24c1 = 0

        End Select
    End Sub


    Private Sub PnlDiente23c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente23c4.Click
        diente23c4 = diente23c4 + 1
        cambiador23c4 = True

        Select Case diente23c4
            Case 0
                PnlDiente23c4.BackColor = Color.White
                diente23c4E = "normal"
            Case 1
                PnlDiente23c4.BackColor = Color.Yellow
                diente23c4E = "precaucion"
            Case 2
                PnlDiente23c4.BackColor = Color.Red
                diente23c4E = "alerta"
            Case 3
                PnlDiente23c4.BackColor = Color.Black
                diente23c4E = "ausente"
            Case 4
                PnlDiente23c4.BackColor = Color.White
                diente23c4E = "normal"
                diente23c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente23c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente23c3.Click
        diente23c3 = diente23c3 + 1
        cambiador23c3 = True

        Select Case diente23c3
            Case 0
                PnlDiente23c3.BackColor = Color.White
                diente23c3E = "normal"
            Case 1
                PnlDiente23c3.BackColor = Color.Yellow
                diente23c3E = "precaucion"
            Case 2
                PnlDiente23c3.BackColor = Color.Red
                diente23c3E = "alerta"
            Case 3
                PnlDiente23c3.BackColor = Color.Black
                diente23c3E = "ausente"
            Case 4
                PnlDiente23c3.BackColor = Color.White
                diente23c3E = "normal"
                diente23c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente23c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente23c2.Click
        diente23c2 = diente23c2 + 1
        cambiador13c2 = True

        Select Case diente23c2
            Case 0
                PnlDiente23c2.BackColor = Color.White
                diente23c2E = "normal"
            Case 1
                PnlDiente23c2.BackColor = Color.Yellow
                diente23c2E = "precaucion"
            Case 2
                PnlDiente23c2.BackColor = Color.Red
                diente23c2E = "alerta"
            Case 3
                PnlDiente23c2.BackColor = Color.Black
                diente23c2E = "ausente"
            Case 4
                PnlDiente23c2.BackColor = Color.White
                diente23c2E = "normal"
                diente23c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente23c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente23c1.Click
        diente23c1 = diente23c1 + 1
        cambiador23c1 = True

        Select Case diente23c1
            Case 0
                PnlDiente23c1.BackColor = Color.White
                diente23c1E = "normal"
            Case 1
                PnlDiente23c1.BackColor = Color.Yellow
                diente23c1E = "precaucion"
            Case 2
                PnlDiente23c1.BackColor = Color.Red
                diente23c1E = "alerta"
            Case 3
                PnlDiente23c1.BackColor = Color.Black
                diente23c1E = "ausente"
            Case 4
                PnlDiente23c1.BackColor = Color.White
                diente23c1E = "normal"
                diente23c1 = 0

        End Select
    End Sub




    Private Sub PnlDiente22c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente22c4.Click
        diente22c4 = diente22c4 + 1
        cambiador22c4 = True

        Select Case diente22c4
            Case 0
                PnlDiente22c4.BackColor = Color.White
                diente22c4E = "normal"
            Case 1
                PnlDiente22c4.BackColor = Color.Yellow
                diente22c4E = "precaucion"
            Case 2
                PnlDiente22c4.BackColor = Color.Red
                diente22c4E = "alerta"
            Case 3
                PnlDiente22c4.BackColor = Color.Black
                diente22c4E = "ausente"
            Case 4
                PnlDiente22c4.BackColor = Color.White
                diente22c4E = "normal"
                diente22c4 = 0

        End Select
    End Sub


    Private Sub PnlDiente22c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente22c3.Click
        diente22c3 = diente22c3 + 1
        cambiador22c3 = True

        Select Case diente22c3
            Case 0
                PnlDiente22c3.BackColor = Color.White
                diente22c3E = "normal"
            Case 1
                PnlDiente22c3.BackColor = Color.Yellow
                diente22c3E = "precaucion"
            Case 2
                PnlDiente22c3.BackColor = Color.Red
                diente22c3E = "alerta"
            Case 3
                PnlDiente22c3.BackColor = Color.Black
                diente22c3E = "ausente"
            Case 4
                PnlDiente22c3.BackColor = Color.White
                diente22c3E = "normal"
                diente22c3 = 0

        End Select
    End Sub



    Private Sub PnlDiente22c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente22c2.Click
        diente22c2 = diente22c2 + 1
        cambiador12c2 = True

        Select Case diente22c2
            Case 0
                PnlDiente22c2.BackColor = Color.White
                diente22c2E = "normal"
            Case 1
                PnlDiente22c2.BackColor = Color.Yellow
                diente22c2E = "precaucion"
            Case 2
                PnlDiente22c2.BackColor = Color.Red
                diente22c2E = "alerta"
            Case 3
                PnlDiente22c2.BackColor = Color.Black
                diente22c2E = "ausente"
            Case 4
                PnlDiente22c2.BackColor = Color.White
                diente22c2E = "normal"
                diente22c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente22c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente22c1.Click
        diente22c1 = diente22c1 + 1
        cambiador22c1 = True

        Select Case diente22c1
            Case 0
                PnlDiente22c1.BackColor = Color.White
                diente22c1E = "normal"
            Case 1
                PnlDiente22c1.BackColor = Color.Yellow
                diente22c1E = "precaucion"
            Case 2
                PnlDiente22c1.BackColor = Color.Red
                diente22c1E = "alerta"
            Case 3
                PnlDiente22c1.BackColor = Color.Black
                diente22c1E = "ausente"
            Case 4
                PnlDiente22c1.BackColor = Color.White
                diente22c1E = "normal"
                diente22c1 = 0

        End Select

    End Sub



    Private Sub PnlDiente21c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente21c4.Click
        diente21c4 = diente21c4 + 1
        cambiador21c4 = True

        Select Case diente21c4
            Case 0
                PnlDiente21c4.BackColor = Color.White
                diente21c4E = "normal"
            Case 1
                PnlDiente21c4.BackColor = Color.Yellow
                diente21c4E = "precaucion"
            Case 2
                PnlDiente21c4.BackColor = Color.Red
                diente21c4E = "alerta"
            Case 3
                PnlDiente21c4.BackColor = Color.Black
                diente21c4E = "ausente"
            Case 4
                PnlDiente21c4.BackColor = Color.White
                diente21c4E = "normal"
                diente21c4 = 0

        End Select
    End Sub



    Private Sub PnlDiente21c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente21c3.Click
        diente21c3 = diente21c3 + 1
        cambiador21c3 = True

        Select Case diente21c3
            Case 0
                PnlDiente21c3.BackColor = Color.White
                diente21c3E = "normal"
            Case 1
                PnlDiente21c3.BackColor = Color.Yellow
                diente21c3E = "precaucion"
            Case 2
                PnlDiente21c3.BackColor = Color.Red
                diente21c3E = "alerta"
            Case 3
                PnlDiente21c3.BackColor = Color.Black
                diente21c3E = "ausente"
            Case 4
                PnlDiente21c3.BackColor = Color.White
                diente21c3E = "normal"
                diente21c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente21c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente21c2.Click
        diente21c2 = diente21c2 + 1
        cambiador11c2 = True

        Select Case diente21c2
            Case 0
                PnlDiente21c2.BackColor = Color.White
                diente21c2E = "normal"
            Case 1
                PnlDiente21c2.BackColor = Color.Yellow
                diente21c2E = "precaucion"
            Case 2
                PnlDiente21c2.BackColor = Color.Red
                diente21c2E = "alerta"
            Case 3
                PnlDiente21c2.BackColor = Color.Black
                diente21c2E = "ausente"
            Case 4
                PnlDiente21c2.BackColor = Color.White
                diente21c2E = "normal"
                diente21c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente21c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente21c1.Click
        diente21c1 = diente21c1 + 1
        cambiador11c1 = True

        Select Case diente21c1
            Case 0
                PnlDiente21c1.BackColor = Color.White
                diente21c1E = "normal"
            Case 1
                PnlDiente21c1.BackColor = Color.Yellow
                diente21c1E = "precaucion"
            Case 2
                PnlDiente21c1.BackColor = Color.Red
                diente21c1E = "alerta"
            Case 3
                PnlDiente21c1.BackColor = Color.Black
                diente21c1E = "ausente"
            Case 4
                PnlDiente21c1.BackColor = Color.White
                diente21c1E = "normal"
                diente21c1 = 0

        End Select
    End Sub



    '------------------------------------------------------------------------------------------------

    Private Sub PnlDiente48c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente48c4.Click

        diente48c4 = diente48c4 + 1
        cambiador48c4 = True

        Select Case diente48c4
            Case 0
                PnlDiente48c4.BackColor = Color.White
                diente48c4E = "normal"
            Case 1
                PnlDiente48c4.BackColor = Color.Yellow
                diente48c4E = "precaucion"
            Case 2
                PnlDiente48c4.BackColor = Color.Red
                diente48c4E = "alerta"
            Case 3
                PnlDiente48c4.BackColor = Color.Black
                diente48c4E = "ausente"
            Case 4
                PnlDiente48c4.BackColor = Color.White
                diente48c4E = "normal"
                diente48c4 = 0

        End Select
    End Sub
    Private Sub PnlDiente48c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente48c3.Click
        diente48c3 = diente48c3 + 1
        cambiador48c3 = True

        Select Case diente48c3
            Case 0
                PnlDiente48c3.BackColor = Color.White
                diente48c3E = "normal"
            Case 1
                PnlDiente48c3.BackColor = Color.Yellow
                diente48c3E = "precaucion"
            Case 2
                PnlDiente48c3.BackColor = Color.Red
                diente48c3E = "alerta"
            Case 3
                PnlDiente48c3.BackColor = Color.Black
                diente48c3E = "ausente"
            Case 4
                PnlDiente48c3.BackColor = Color.White
                diente48c3E = "normal"
                diente48c3 = 0

        End Select
    End Sub
    Private Sub PnlDiente48c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente48c2.Click
        diente48c2 = diente48c2 + 1
        cambiador28c2 = True

        Select Case diente48c2
            Case 0
                PnlDiente48c2.BackColor = Color.White
                diente48c2E = "normal"
            Case 1
                PnlDiente48c2.BackColor = Color.Yellow
                diente48c2E = "precaucion"
            Case 2
                PnlDiente48c2.BackColor = Color.Red
                diente48c2E = "alerta"
            Case 3
                PnlDiente48c2.BackColor = Color.Black
                diente48c2E = "ausente"
            Case 4
                PnlDiente48c2.BackColor = Color.White
                diente48c2E = "normal"
                diente48c2 = 0

        End Select


    End Sub


    Private Sub PnlDiente48c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente48c1.Click
        diente48c1 = diente48c1 + 1
        cambiador48c1 = True

        Select Case diente48c1
            Case 0
                PnlDiente48c1.BackColor = Color.White
                diente48c1E = "normal"
            Case 1
                PnlDiente48c1.BackColor = Color.Yellow
                diente48c1E = "precaucion"
            Case 2
                PnlDiente48c1.BackColor = Color.Red
                diente48c1E = "alerta"
            Case 3
                PnlDiente48c1.BackColor = Color.Black
                diente48c1E = "ausente"
            Case 4
                PnlDiente48c1.BackColor = Color.White
                diente48c1E = "normal"
                diente48c1 = 0

        End Select
    End Sub

    'iiii
    Private Sub PnlDiente47c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente47c4.Click
        diente47c4 = diente47c4 + 1
        cambiador47c4 = True

        Select Case diente47c4
            Case 0
                PnlDiente47c4.BackColor = Color.White
                diente47c4E = "normal"
            Case 1
                PnlDiente47c4.BackColor = Color.Yellow
                diente47c4E = "precaucion"
            Case 2
                PnlDiente47c4.BackColor = Color.Red
                diente47c4E = "alerta"
            Case 3
                PnlDiente47c4.BackColor = Color.Black
                diente47c4E = "ausente"
            Case 4
                PnlDiente47c4.BackColor = Color.White
                diente47c4E = "normal"
                diente47c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente47c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente47c3.Click
        diente47c3 = diente47c3 + 1
        cambiador47c3 = True

        Select Case diente47c3
            Case 0
                PnlDiente47c3.BackColor = Color.White
                diente47c3E = "normal"
            Case 1
                PnlDiente47c3.BackColor = Color.Yellow
                diente47c3E = "precaucion"
            Case 2
                PnlDiente47c3.BackColor = Color.Red
                diente47c3E = "alerta"
            Case 3
                PnlDiente47c3.BackColor = Color.Black
                diente47c3E = "ausente"
            Case 4
                PnlDiente47c3.BackColor = Color.White
                diente47c3E = "normal"
                diente47c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente47c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente47c2.Click
        diente47c2 = diente47c2 + 1
        cambiador47c2 = True

        Select Case diente47c2
            Case 0
                PnlDiente47c2.BackColor = Color.White
                diente47c2E = "normal"
            Case 1
                PnlDiente47c2.BackColor = Color.Yellow
                diente47c2E = "precaucion"
            Case 2
                PnlDiente47c2.BackColor = Color.Red
                diente47c2E = "alerta"
            Case 3
                PnlDiente47c2.BackColor = Color.Black
                diente47c2E = "ausente"
            Case 4
                PnlDiente47c2.BackColor = Color.White
                diente47c2E = "normal"
                diente47c2 = 0

        End Select


    End Sub

    Private Sub PnlDiente47c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente47c1.Click
        diente47c1 = diente47c1 + 1
        cambiador47c1 = True

        Select Case diente47c1
            Case 0
                PnlDiente47c1.BackColor = Color.White
                diente47c1E = "normal"
            Case 1
                PnlDiente47c1.BackColor = Color.Yellow
                diente47c1E = "precaucion"
            Case 2
                PnlDiente47c1.BackColor = Color.Red
                diente47c1E = "alerta"
            Case 3
                PnlDiente47c1.BackColor = Color.Black
                diente47c1E = "ausente"
            Case 4
                PnlDiente47c1.BackColor = Color.White
                diente47c1E = "normal"
                diente47c1 = 0

        End Select

    End Sub

    Private Sub PnlDiente46c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente46c4.Click
        diente46c4 = diente26c4 + 1
        cambiador26c4 = True

        Select Case diente46c4
            Case 0
                PnlDiente46c4.BackColor = Color.White
                diente46c4E = "normal"
            Case 1
                PnlDiente46c4.BackColor = Color.Yellow
                diente46c4E = "precaucion"
            Case 2
                PnlDiente46c4.BackColor = Color.Red
                diente46c4E = "alerta"
            Case 3
                PnlDiente46c4.BackColor = Color.Black
                diente46c4E = "ausente"
            Case 4
                PnlDiente46c4.BackColor = Color.White
                diente46c4E = "normal"
                diente46c4 = 0

        End Select

    End Sub


    Private Sub PnlDiente46c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente46c3.Click
        diente46c3 = diente46c3 + 1
        cambiador46c3 = True

        Select Case diente46c3
            Case 0
                PnlDiente46c3.BackColor = Color.White
                diente46c3E = "normal"
            Case 1
                PnlDiente46c3.BackColor = Color.Yellow
                diente46c3E = "precaucion"
            Case 2
                PnlDiente46c3.BackColor = Color.Red
                diente46c3E = "alerta"
            Case 3
                PnlDiente46c3.BackColor = Color.Black
                diente46c3E = "ausente"
            Case 4
                PnlDiente46c3.BackColor = Color.White
                diente46c3E = "normal"
                diente46c3 = 0

        End Select

    End Sub



    Private Sub PnlDiente46c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente46c2.Click
        diente46c2 = diente46c2 + 1
        cambiador46c2 = True

        Select Case diente46c2
            Case 0
                PnlDiente46c2.BackColor = Color.White
                diente46c2E = "normal"
            Case 1
                PnlDiente46c2.BackColor = Color.Yellow
                diente46c2E = "precaucion"
            Case 2
                PnlDiente46c2.BackColor = Color.Red
                diente46c2E = "alerta"
            Case 3
                PnlDiente46c2.BackColor = Color.Black
                diente46c2E = "ausente"
            Case 4
                PnlDiente46c2.BackColor = Color.White
                diente46c2E = "normal"
                diente46c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente46c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente46c1.Click
        diente46c1 = diente46c1 + 1
        cambiador46c1 = True

        Select Case diente46c1
            Case 0
                PnlDiente46c1.BackColor = Color.White
                diente46c1E = "normal"
            Case 1
                PnlDiente46c1.BackColor = Color.Yellow
                diente46c1E = "precaucion"
            Case 2
                PnlDiente46c1.BackColor = Color.Red
                diente46c1E = "alerta"
            Case 3
                PnlDiente46c1.BackColor = Color.Black
                diente46c1E = "ausente"
            Case 4
                PnlDiente46c1.BackColor = Color.White
                diente46c1E = "normal"
                diente46c1 = 0

        End Select

    End Sub


    Private Sub PnlDiente45c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente45c4.Click
        diente45c4 = diente45c4 + 1
        cambiador45c4 = True

        Select Case diente45c4
            Case 0
                PnlDiente45c4.BackColor = Color.White
                diente45c4E = "normal"
            Case 1
                PnlDiente45c4.BackColor = Color.Yellow
                diente45c4E = "precaucion"
            Case 2
                PnlDiente45c4.BackColor = Color.Red
                diente45c4E = "alerta"
            Case 3
                PnlDiente45c4.BackColor = Color.Black
                diente45c4E = "ausente"
            Case 4
                PnlDiente45c4.BackColor = Color.White
                diente45c4E = "normal"
                diente45c4 = 0

        End Select

    End Sub


    Private Sub PnlDiente45c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente45c3.Click
        diente45c3 = diente45c3 + 1
        cambiador45c3 = True

        Select Case diente45c3
            Case 0
                PnlDiente45c3.BackColor = Color.White
                diente45c3E = "normal"
            Case 1
                PnlDiente45c3.BackColor = Color.Yellow
                diente45c3E = "precaucion"
            Case 2
                PnlDiente45c3.BackColor = Color.Red
                diente45c3E = "alerta"
            Case 3
                PnlDiente45c3.BackColor = Color.Black
                diente45c3E = "ausente"
            Case 4
                PnlDiente45c3.BackColor = Color.White
                diente45c3E = "normal"
                diente45c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente45c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente45c2.Click
        diente45c2 = diente45c2 + 1
        cambiador45c2 = True

        Select Case diente45c2
            Case 0
                PnlDiente45c2.BackColor = Color.White
                diente45c2E = "normal"
            Case 1
                PnlDiente45c2.BackColor = Color.Yellow
                diente45c2E = "precaucion"
            Case 2
                PnlDiente45c2.BackColor = Color.Red
                diente45c2E = "alerta"
            Case 3
                PnlDiente45c2.BackColor = Color.Black
                diente45c2E = "ausente"
            Case 4
                PnlDiente45c2.BackColor = Color.White
                diente45c2E = "normal"
                diente45c2 = 0

        End Select
    End Sub



    Private Sub PnlDiente45c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente45c1.Click
        diente45c1 = diente45c1 + 1
        cambiador45c1 = True

        Select Case diente45c1
            Case 0
                PnlDiente45c1.BackColor = Color.White
                diente45c1E = "normal"
            Case 1
                PnlDiente45c1.BackColor = Color.Yellow
                diente45c1E = "precaucion"
            Case 2
                PnlDiente45c1.BackColor = Color.Red
                diente45c1E = "alerta"
            Case 3
                PnlDiente45c1.BackColor = Color.Black
                diente45c1E = "ausente"
            Case 4
                PnlDiente45c1.BackColor = Color.White
                diente45c1E = "normal"
                diente45c1 = 0

        End Select

    End Sub


    Private Sub PnlDiente44c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente44c4.Click
        diente44c4 = diente24c4 + 1
        cambiador44c4 = True

        Select Case diente44c4
            Case 0
                PnlDiente44c4.BackColor = Color.White
                diente44c4E = "normal"
            Case 1
                PnlDiente44c4.BackColor = Color.Yellow
                diente44c4E = "precaucion"
            Case 2
                PnlDiente44c4.BackColor = Color.Red
                diente44c4E = "alerta"
            Case 3
                PnlDiente44c4.BackColor = Color.Black
                diente44c4E = "ausente"
            Case 4
                PnlDiente44c4.BackColor = Color.White
                diente44c4E = "normal"
                diente44c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente44c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente44c3.Click
        diente44c3 = diente44c3 + 1
        cambiador44c3 = True

        Select Case diente44c3
            Case 0
                PnlDiente44c3.BackColor = Color.White
                diente44c3E = "normal"
            Case 1
                PnlDiente44c3.BackColor = Color.Yellow
                diente24c3E = "precaucion"
            Case 2
                PnlDiente44c3.BackColor = Color.Red
                diente44c3E = "alerta"
            Case 3
                PnlDiente44c3.BackColor = Color.Black
                diente44c3E = "ausente"
            Case 4
                PnlDiente44c3.BackColor = Color.White
                diente44c3E = "normal"
                diente44c3 = 0

        End Select
    End Sub



    Private Sub PnlDiente44c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente44c2.Click
        diente44c2 = diente44c2 + 1
        cambiador44c2 = True

        Select Case diente44c2
            Case 0
                PnlDiente44c2.BackColor = Color.White
                diente44c2E = "normal"
            Case 1
                PnlDiente44c2.BackColor = Color.Yellow
                diente44c2E = "precaucion"
            Case 2
                PnlDiente44c2.BackColor = Color.Red
                diente44c2E = "alerta"
            Case 3
                PnlDiente44c2.BackColor = Color.Black
                diente44c2E = "ausente"
            Case 4
                PnlDiente44c2.BackColor = Color.White
                diente44c2E = "normal"
                diente44c2 = 0

        End Select

    End Sub


    Private Sub PnlDiente44c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente44c1.Click
        diente44c1 = diente44c1 + 1
        cambiador44c1 = True

        Select Case diente44c1
            Case 0
                PnlDiente44c1.BackColor = Color.White
                diente44c1E = "normal"
            Case 1
                PnlDiente44c1.BackColor = Color.Yellow
                diente44c1E = "precaucion"
            Case 2
                PnlDiente44c1.BackColor = Color.Red
                diente44c1E = "alerta"
            Case 3
                PnlDiente44c1.BackColor = Color.Black
                diente44c1E = "ausente"
            Case 4
                PnlDiente44c1.BackColor = Color.White
                diente44c1E = "normal"
                diente44c1 = 0

        End Select
    End Sub


    Private Sub PnlDiente43c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente43c4.Click
        diente43c4 = diente43c4 + 1
        cambiador43c4 = True

        Select Case diente43c4
            Case 0
                PnlDiente43c4.BackColor = Color.White
                diente43c4E = "normal"
            Case 1
                PnlDiente43c4.BackColor = Color.Yellow
                diente43c4E = "precaucion"
            Case 2
                PnlDiente43c4.BackColor = Color.Red
                diente43c4E = "alerta"
            Case 3
                PnlDiente43c4.BackColor = Color.Black
                diente43c4E = "ausente"
            Case 4
                PnlDiente43c4.BackColor = Color.White
                diente43c4E = "normal"
                diente43c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente43c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente43c3.Click
        diente43c3 = diente43c3 + 1
        cambiador43c3 = True

        Select Case diente43c3
            Case 0
                PnlDiente43c3.BackColor = Color.White
                diente43c3E = "normal"
            Case 1
                PnlDiente43c3.BackColor = Color.Yellow
                diente43c3E = "precaucion"
            Case 2
                PnlDiente43c3.BackColor = Color.Red
                diente43c3E = "alerta"
            Case 3
                PnlDiente43c3.BackColor = Color.Black
                diente43c3E = "ausente"
            Case 4
                PnlDiente43c3.BackColor = Color.White
                diente43c3E = "normal"
                diente43c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente43c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente43c2.Click
        diente43c2 = diente43c2 + 1
        cambiador43c2 = True

        Select Case diente43c2
            Case 0
                PnlDiente43c2.BackColor = Color.White
                diente43c2E = "normal"
            Case 1
                PnlDiente43c2.BackColor = Color.Yellow
                diente43c2E = "precaucion"
            Case 2
                PnlDiente43c2.BackColor = Color.Red
                diente43c2E = "alerta"
            Case 3
                PnlDiente43c2.BackColor = Color.Black
                diente43c2E = "ausente"
            Case 4
                PnlDiente43c2.BackColor = Color.White
                diente43c2E = "normal"
                diente43c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente43c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente43c1.Click
        diente43c1 = diente43c1 + 1
        cambiador43c1 = True

        Select Case diente43c1
            Case 0
                PnlDiente43c1.BackColor = Color.White
                diente43c1E = "normal"
            Case 1
                PnlDiente43c1.BackColor = Color.Yellow
                diente43c1E = "precaucion"
            Case 2
                PnlDiente43c1.BackColor = Color.Red
                diente43c1E = "alerta"
            Case 3
                PnlDiente43c1.BackColor = Color.Black
                diente43c1E = "ausente"
            Case 4
                PnlDiente43c1.BackColor = Color.White
                diente43c1E = "normal"
                diente43c1 = 0

        End Select
    End Sub




    Private Sub PnlDiente42c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente42c4.Click
        diente42c4 = diente42c4 + 1
        cambiador42c4 = True

        Select Case diente42c4
            Case 0
                PnlDiente42c4.BackColor = Color.White
                diente42c4E = "normal"
            Case 1
                PnlDiente42c4.BackColor = Color.Yellow
                diente42c4E = "precaucion"
            Case 2
                PnlDiente42c4.BackColor = Color.Red
                diente42c4E = "alerta"
            Case 3
                PnlDiente42c4.BackColor = Color.Black
                diente42c4E = "ausente"
            Case 4
                PnlDiente42c4.BackColor = Color.White
                diente42c4E = "normal"
                diente42c4 = 0

        End Select
    End Sub


    Private Sub PnlDiente42c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente42c3.Click
        diente42c3 = diente42c3 + 1
        cambiador42c3 = True

        Select Case diente42c3
            Case 0
                PnlDiente42c3.BackColor = Color.White
                diente22c3E = "normal"
            Case 1
                PnlDiente42c3.BackColor = Color.Yellow
                diente22c3E = "precaucion"
            Case 2
                PnlDiente42c3.BackColor = Color.Red
                diente22c3E = "alerta"
            Case 3
                PnlDiente42c3.BackColor = Color.Black
                diente22c3E = "ausente"
            Case 4
                PnlDiente42c3.BackColor = Color.White
                diente22c3E = "normal"
                diente22c3 = 0

        End Select
    End Sub



    Private Sub PnlDiente42c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente42c2.Click
        diente42c2 = diente42c2 + 1
        cambiador42c2 = True

        Select Case diente42c2
            Case 0
                PnlDiente42c2.BackColor = Color.White
                diente42c2E = "normal"
            Case 1
                PnlDiente42c2.BackColor = Color.Yellow
                diente42c2E = "precaucion"
            Case 2
                PnlDiente42c2.BackColor = Color.Red
                diente42c2E = "alerta"
            Case 3
                PnlDiente42c2.BackColor = Color.Black
                diente42c2E = "ausente"
            Case 4
                PnlDiente42c2.BackColor = Color.White
                diente42c2E = "normal"
                diente42c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente42c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente42c1.Click
        diente42c1 = diente42c1 + 1
        cambiador42c1 = True

        Select Case diente42c1
            Case 0
                PnlDiente42c1.BackColor = Color.White
                diente42c1E = "normal"
            Case 1
                PnlDiente42c1.BackColor = Color.Yellow
                diente42c1E = "precaucion"
            Case 2
                PnlDiente42c1.BackColor = Color.Red
                diente42c1E = "alerta"
            Case 3
                PnlDiente42c1.BackColor = Color.Black
                diente22c1E = "ausente"
            Case 4
                PnlDiente42c1.BackColor = Color.White
                diente22c1E = "normal"
                diente22c1 = 0

        End Select

    End Sub



    Private Sub PnlDiente41c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente41c4.Click
        diente41c4 = diente41c4 + 1
        cambiador41c4 = True

        Select Case diente41c4
            Case 0
                PnlDiente41c4.BackColor = Color.White
                diente41c4E = "normal"
            Case 1
                PnlDiente41c4.BackColor = Color.Yellow
                diente41c4E = "precaucion"
            Case 2
                PnlDiente41c4.BackColor = Color.Red
                diente41c4E = "alerta"
            Case 3
                PnlDiente41c4.BackColor = Color.Black
                diente41c4E = "ausente"
            Case 4
                PnlDiente41c4.BackColor = Color.White
                diente41c4E = "normal"
                diente41c4 = 0

        End Select
    End Sub



    Private Sub PnlDiente41c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente41c3.Click
        diente41c3 = diente41c3 + 1
        cambiador41c3 = True

        Select Case diente41c3
            Case 0
                PnlDiente41c3.BackColor = Color.White
                diente41c3E = "normal"
            Case 1
                PnlDiente41c3.BackColor = Color.Yellow
                diente41c3E = "precaucion"
            Case 2
                PnlDiente41c3.BackColor = Color.Red
                diente41c3E = "alerta"
            Case 3
                PnlDiente41c3.BackColor = Color.Black
                diente41c3E = "ausente"
            Case 4
                PnlDiente41c3.BackColor = Color.White
                diente41c3E = "normal"
                diente41c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente41c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente41c2.Click
        diente41c2 = diente41c2 + 1
        cambiador41c2 = True

        Select Case diente41c2
            Case 0
                PnlDiente41c2.BackColor = Color.White
                diente41c2E = "normal"
            Case 1
                PnlDiente41c2.BackColor = Color.Yellow
                diente41c2E = "precaucion"
            Case 2
                PnlDiente41c2.BackColor = Color.Red
                diente41c2E = "alerta"
            Case 3
                PnlDiente41c2.BackColor = Color.Black
                diente41c2E = "ausente"
            Case 4
                PnlDiente41c2.BackColor = Color.White
                diente41c2E = "normal"
                diente41c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente41c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PnlDiente41c1.Click
        diente41c1 = diente41c1 + 1
        cambiador41c1 = True

        Select Case diente41c1
            Case 0
                PnlDiente41c1.BackColor = Color.White
                diente41c1E = "normal"
            Case 1
                PnlDiente41c1.BackColor = Color.Yellow
                diente41c1E = "precaucion"
            Case 2
                PnlDiente41c1.BackColor = Color.Red
                diente41c1E = "alerta"
            Case 3
                PnlDiente41c1.BackColor = Color.Black
                diente41c1E = "ausente"
            Case 4
                PnlDiente41c1.BackColor = Color.White
                diente41c1E = "normal"
                diente41c1 = 0

        End Select
    End Sub

    '--------------------------------------------------------------------------


    Private Sub PnlDiente38c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente38c4.Click

        diente38c4 = diente38c4 + 1
        cambiador38c4 = True

        Select Case diente38c4
            Case 0
                pnlDiente38c4.BackColor = Color.White
                diente38c4E = "normal"
            Case 1
                pnlDiente38c4.BackColor = Color.Yellow
                diente38c4E = "precaucion"
            Case 2
                pnlDiente38c4.BackColor = Color.Red
                diente38c4E = "alerta"
            Case 3
                pnlDiente38c4.BackColor = Color.Black
                diente38c4E = "ausente"
            Case 4
                pnlDiente38c4.BackColor = Color.White
                diente38c4E = "normal"
                diente38c4 = 0

        End Select
    End Sub
    Private Sub PnlDiente38c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente38c3.Click
        diente38c3 = diente38c3 + 1
        cambiador38c3 = True

        Select Case diente38c3
            Case 0
                pnlDiente38c3.BackColor = Color.White
                diente38c3E = "normal"
            Case 1
                pnlDiente38c3.BackColor = Color.Yellow
                diente38c3E = "precaucion"
            Case 2
                pnlDiente38c3.BackColor = Color.Red
                diente38c3E = "alerta"
            Case 3
                pnlDiente38c3.BackColor = Color.Black
                diente38c3E = "ausente"
            Case 4
                pnlDiente38c3.BackColor = Color.White
                diente38c3E = "normal"
                diente38c3 = 0

        End Select
    End Sub
    Private Sub PnlDiente38c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente38c2.Click
        diente38c2 = diente38c2 + 1
        cambiador38c2 = True

        Select Case diente38c2
            Case 0
                pnlDiente38c2.BackColor = Color.White
                diente38c2E = "normal"
            Case 1
                pnlDiente38c2.BackColor = Color.Yellow
                diente38c2E = "precaucion"
            Case 2
                pnlDiente38c2.BackColor = Color.Red
                diente38c2E = "alerta"
            Case 3
                pnlDiente38c2.BackColor = Color.Black
                diente38c2E = "ausente"
            Case 4
                pnlDiente38c2.BackColor = Color.White
                diente38c2E = "normal"
                diente38c2 = 0

        End Select


    End Sub


    Private Sub PnlDiente38c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente38c1.Click
        diente38c1 = diente38c1 + 1
        cambiador38c1 = True

        Select Case diente48c1
            Case 0
                pnlDiente38c1.BackColor = Color.White
                diente38c1E = "normal"
            Case 1
                pnlDiente38c1.BackColor = Color.Yellow
                diente38c1E = "precaucion"
            Case 2
                pnlDiente38c1.BackColor = Color.Red
                diente38c1E = "alerta"
            Case 3
                pnlDiente38c1.BackColor = Color.Black
                diente38c1E = "ausente"
            Case 4
                pnlDiente38c1.BackColor = Color.White
                diente38c1E = "normal"
                diente38c1 = 0

        End Select
    End Sub


    Private Sub PnlDiente37c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente37c4.Click
        diente37c4 = diente37c4 + 1
        cambiador37c4 = True

        Select Case diente37c4
            Case 0
                pnlDiente37c4.BackColor = Color.White
                diente37c4E = "normal"
            Case 1
                pnlDiente37c4.BackColor = Color.Yellow
                diente37c4E = "precaucion"
            Case 2
                pnlDiente37c4.BackColor = Color.Red
                diente37c4E = "alerta"
            Case 3
                pnlDiente37c4.BackColor = Color.Black
                diente37c4E = "ausente"
            Case 4
                pnlDiente37c4.BackColor = Color.White
                diente37c4E = "normal"
                diente37c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente37c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente37c3.Click
        diente37c3 = diente37c3 + 1
        cambiador37c3 = True

        Select Case diente37c3
            Case 0
                pnlDiente37c3.BackColor = Color.White
                diente37c3E = "normal"
            Case 1
                pnlDiente37c3.BackColor = Color.Yellow
                diente37c3E = "precaucion"
            Case 2
                pnlDiente37c3.BackColor = Color.Red
                diente37c3E = "alerta"
            Case 3
                pnlDiente37c3.BackColor = Color.Black
                diente37c3E = "ausente"
            Case 4
                pnlDiente37c3.BackColor = Color.White
                diente37c3E = "normal"
                diente37c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente37c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente37c2.Click
        diente37c2 = diente47c2 + 1
        cambiador37c2 = True

        Select Case diente37c2
            Case 0
                pnlDiente37c2.BackColor = Color.White
                diente37c2E = "normal"
            Case 1
                pnlDiente37c2.BackColor = Color.Yellow
                diente37c2E = "precaucion"
            Case 2
                pnlDiente37c2.BackColor = Color.Red
                diente37c2E = "alerta"
            Case 3
                pnlDiente37c2.BackColor = Color.Black
                diente37c2E = "ausente"
            Case 4
                pnlDiente37c2.BackColor = Color.White
                diente37c2E = "normal"
                diente37c2 = 0

        End Select


    End Sub

    Private Sub PnlDiente37c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente37c1.Click
        diente37c1 = diente37c1 + 1
        cambiador37c1 = True

        Select Case diente37c1
            Case 0
                pnlDiente37c1.BackColor = Color.White
                diente37c1E = "normal"
            Case 1
                pnlDiente37c1.BackColor = Color.Yellow
                diente37c1E = "precaucion"
            Case 2
                pnlDiente37c1.BackColor = Color.Red
                diente37c1E = "alerta"
            Case 3
                pnlDiente37c1.BackColor = Color.Black
                diente37c1E = "ausente"
            Case 4
                pnlDiente37c1.BackColor = Color.White
                diente37c1E = "normal"
                diente37c1 = 0

        End Select

    End Sub

    Private Sub PnlDiente36c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente36c4.Click
        diente36c4 = diente36c4 + 1
        cambiador36c4 = True

        Select Case diente36c4
            Case 0
                pnlDiente36c4.BackColor = Color.White
                diente36c4E = "normal"
            Case 1
                pnlDiente36c4.BackColor = Color.Yellow
                diente36c4E = "precaucion"
            Case 2
                pnlDiente36c4.BackColor = Color.Red
                diente36c4E = "alerta"
            Case 3
                PnlDiente46c4.BackColor = Color.Black
                diente36c4E = "ausente"
            Case 4
                pnlDiente36c4.BackColor = Color.White
                diente36c4E = "normal"
                diente36c4 = 0

        End Select

    End Sub


    Private Sub PnlDiente36c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente36c3.Click
        diente36c3 = diente36c3 + 1
        cambiador36c3 = True

        Select Case diente36c3
            Case 0
                pnlDiente36c3.BackColor = Color.White
                diente36c3E = "normal"
            Case 1
                pnlDiente36c3.BackColor = Color.Yellow
                diente36c3E = "precaucion"
            Case 2
                pnlDiente36c3.BackColor = Color.Red
                diente36c3E = "alerta"
            Case 3
                pnlDiente36c3.BackColor = Color.Black
                diente36c3E = "ausente"
            Case 4
                pnlDiente36c3.BackColor = Color.White
                diente36c3E = "normal"
                diente36c3 = 0

        End Select

    End Sub



    Private Sub PnlDiente36c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente36c2.Click
        diente36c2 = diente36c2 + 1
        cambiador36c2 = True

        Select Case diente36c2
            Case 0
                pnlDiente36c2.BackColor = Color.White
                diente36c2E = "normal"
            Case 1
                pnlDiente36c2.BackColor = Color.Yellow
                diente36c2E = "precaucion"
            Case 2
                pnlDiente36c2.BackColor = Color.Red
                diente36c2E = "alerta"
            Case 3
                pnlDiente36c2.BackColor = Color.Black
                diente36c2E = "ausente"
            Case 4
                pnlDiente36c2.BackColor = Color.White
                diente36c2E = "normal"
                diente36c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente36c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente36c1.Click
        diente36c1 = diente36c1 + 1
        cambiador36c1 = True

        Select Case diente36c1
            Case 0
                pnlDiente36c1.BackColor = Color.White
                diente36c1E = "normal"
            Case 1
                pnlDiente36c1.BackColor = Color.Yellow
                diente36c1E = "precaucion"
            Case 2
                pnlDiente36c1.BackColor = Color.Red
                diente36c1E = "alerta"
            Case 3
                pnlDiente36c1.BackColor = Color.Black
                diente36c1E = "ausente"
            Case 4
                pnlDiente36c1.BackColor = Color.White
                diente36c1E = "normal"
                diente36c1 = 0

        End Select

    End Sub


    Private Sub PnlDiente35c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente35c4.Click
        diente35c4 = diente35c4 + 1
        cambiador35c4 = True

        Select Case diente35c4
            Case 0
                pnlDiente35c4.BackColor = Color.White
                diente35c4E = "normal"
            Case 1
                pnlDiente35c4.BackColor = Color.Yellow
                diente35c4E = "precaucion"
            Case 2
                pnlDiente35c4.BackColor = Color.Red
                diente35c4E = "alerta"
            Case 3
                pnlDiente35c4.BackColor = Color.Black
                diente35c4E = "ausente"
            Case 4
                pnlDiente35c4.BackColor = Color.White
                diente35c4E = "normal"
                diente35c4 = 0

        End Select

    End Sub


    Private Sub PnlDiente35c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente35c3.Click
        diente35c3 = diente35c3 + 1
        cambiador35c3 = True

        Select Case diente35c3
            Case 0
                pnlDiente35c3.BackColor = Color.White
                diente35c3E = "normal"
            Case 1
                pnlDiente35c3.BackColor = Color.Yellow
                diente35c3E = "precaucion"
            Case 2
                pnlDiente35c3.BackColor = Color.Red
                diente35c3E = "alerta"
            Case 3
                pnlDiente35c3.BackColor = Color.Black
                diente35c3E = "ausente"
            Case 4
                pnlDiente35c3.BackColor = Color.White
                diente35c3E = "normal"
                diente35c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente35c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente35c2.Click
        diente35c2 = diente35c2 + 1
        cambiador35c2 = True

        Select Case diente35c2
            Case 0
                pnlDiente35c2.BackColor = Color.White
                diente35c2E = "normal"
            Case 1
                pnlDiente35c2.BackColor = Color.Yellow
                diente35c2E = "precaucion"
            Case 2
                pnlDiente35c2.BackColor = Color.Red
                diente35c2E = "alerta"
            Case 3
                pnlDiente35c2.BackColor = Color.Black
                diente35c2E = "ausente"
            Case 4
                pnlDiente35c2.BackColor = Color.White
                diente35c2E = "normal"
                diente35c2 = 0

        End Select
    End Sub



    Private Sub PnlDiente35c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente35c1.Click
        diente35c1 = diente35c1 + 1
        cambiador35c1 = True

        Select Case diente35c1
            Case 0
                pnlDiente35c1.BackColor = Color.White
                diente35c1E = "normal"
            Case 1
                pnlDiente35c1.BackColor = Color.Yellow
                diente35c1E = "precaucion"
            Case 2
                pnlDiente35c1.BackColor = Color.Red
                diente35c1E = "alerta"
            Case 3
                pnlDiente35c1.BackColor = Color.Black
                diente35c1E = "ausente"
            Case 4
                pnlDiente35c1.BackColor = Color.White
                diente35c1E = "normal"
                diente35c1 = 0

        End Select

    End Sub


    Private Sub PnlDiente34c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente34c4.Click
        diente34c4 = diente34c4 + 1
        cambiador44c4 = True

        Select Case diente34c4
            Case 0
                pnlDiente34c4.BackColor = Color.White
                diente34c4E = "normal"
            Case 1
                pnlDiente34c4.BackColor = Color.Yellow
                diente34c4E = "precaucion"
            Case 2
                pnlDiente34c4.BackColor = Color.Red
                diente34c4E = "alerta"
            Case 3
                pnlDiente34c4.BackColor = Color.Black
                diente34c4E = "ausente"
            Case 4
                pnlDiente34c4.BackColor = Color.White
                diente34c4E = "normal"
                diente34c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente34c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente34c3.Click
        diente34c3 = diente34c3 + 1
        cambiador34c3 = True

        Select Case diente34c3
            Case 0
                pnlDiente34c3.BackColor = Color.White
                diente34c3E = "normal"
            Case 1
                pnlDiente34c3.BackColor = Color.Yellow
                diente34c3E = "precaucion"
            Case 2
                pnlDiente34c3.BackColor = Color.Red
                diente34c3E = "alerta"
            Case 3
                pnlDiente34c3.BackColor = Color.Black
                diente34c3E = "ausente"
            Case 4
                pnlDiente34c3.BackColor = Color.White
                diente34c3E = "normal"
                diente34c3 = 0

        End Select
    End Sub



    Private Sub PnlDiente34c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente34c2.Click
        diente34c2 = diente34c2 + 1
        cambiador34c2 = True

        Select Case diente34c2
            Case 0
                pnlDiente34c2.BackColor = Color.White
                diente34c2E = "normal"
            Case 1
                pnlDiente34c2.BackColor = Color.Yellow
                diente34c2E = "precaucion"
            Case 2
                pnlDiente34c2.BackColor = Color.Red
                diente34c2E = "alerta"
            Case 3
                pnlDiente34c2.BackColor = Color.Black
                diente34c2E = "ausente"
            Case 4
                pnlDiente34c2.BackColor = Color.White
                diente44c2E = "normal"
                diente44c2 = 0

        End Select

    End Sub


    Private Sub PnlDiente34c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente34c1.Click
        diente34c1 = diente34c1 + 1
        cambiador34c1 = True

        Select Case diente34c1
            Case 0
                pnlDiente34c1.BackColor = Color.White
                diente34c1E = "normal"
            Case 1
                pnlDiente34c1.BackColor = Color.Yellow
                diente34c1E = "precaucion"
            Case 2
                pnlDiente34c1.BackColor = Color.Red
                diente34c1E = "alerta"
            Case 3
                pnlDiente34c1.BackColor = Color.Black
                diente34c1E = "ausente"
            Case 4
                pnlDiente34c1.BackColor = Color.White
                diente34c1E = "normal"
                diente34c1 = 0

        End Select
    End Sub


    Private Sub PnlDiente33c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente33c4.Click
        diente33c4 = diente33c4 + 1
        cambiador33c4 = True

        Select Case diente33c4
            Case 0
                pnlDiente33c4.BackColor = Color.White
                diente33c4E = "normal"
            Case 1
                pnlDiente33c4.BackColor = Color.Yellow
                diente33c4E = "precaucion"
            Case 2
                pnlDiente33c4.BackColor = Color.Red
                diente33c4E = "alerta"
            Case 3
                pnlDiente33c4.BackColor = Color.Black
                diente33c4E = "ausente"
            Case 4
                pnlDiente33c4.BackColor = Color.White
                diente33c4E = "normal"
                diente33c4 = 0

        End Select
    End Sub

    Private Sub PnlDiente33c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente33c3.Click
        diente33c3 = diente33c3 + 1
        cambiador33c3 = True

        Select Case diente33c3
            Case 0
                pnlDiente33c3.BackColor = Color.White
                diente33c3E = "normal"
            Case 1
                pnlDiente33c3.BackColor = Color.Yellow
                diente33c3E = "precaucion"
            Case 2
                pnlDiente33c3.BackColor = Color.Red
                diente33c3E = "alerta"
            Case 3
                pnlDiente33c3.BackColor = Color.Black
                diente33c3E = "ausente"
            Case 4
                pnlDiente33c3.BackColor = Color.White
                diente33c3E = "normal"
                diente33c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente33c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente33c2.Click
        diente33c2 = diente33c2 + 1
        cambiador33c2 = True

        Select Case diente33c2
            Case 0
                pnlDiente33c2.BackColor = Color.White
                diente33c2E = "normal"
            Case 1
                pnlDiente33c2.BackColor = Color.Yellow
                diente33c2E = "precaucion"
            Case 2
                pnlDiente33c2.BackColor = Color.Red
                diente33c2E = "alerta"
            Case 3
                pnlDiente33c2.BackColor = Color.Black
                diente33c2E = "ausente"
            Case 4
                pnlDiente33c2.BackColor = Color.White
                diente33c2E = "normal"
                diente33c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente33c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente33c1.Click
        diente33c1 = diente33c1 + 1
        cambiador33c1 = True

        Select Case diente33c1
            Case 0
                pnlDiente33c1.BackColor = Color.White
                diente33c1E = "normal"
            Case 1
                pnlDiente33c1.BackColor = Color.Yellow
                diente33c1E = "precaucion"
            Case 2
                pnlDiente33c1.BackColor = Color.Red
                diente33c1E = "alerta"
            Case 3
                pnlDiente33c1.BackColor = Color.Black
                diente33c1E = "ausente"
            Case 4
                pnlDiente33c1.BackColor = Color.White
                diente33c1E = "normal"
                diente33c1 = 0

        End Select
    End Sub




    Private Sub PnlDiente32c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente32c4.Click
        diente32c4 = diente32c4 + 1
        cambiador32c4 = True

        Select Case diente32c4
            Case 0
                pnlDiente32c4.BackColor = Color.White
                diente32c4E = "normal"
            Case 1
                pnlDiente32c4.BackColor = Color.Yellow
                diente32c4E = "precaucion"
            Case 2
                pnlDiente32c4.BackColor = Color.Red
                diente32c4E = "alerta"
            Case 3
                pnlDiente32c4.BackColor = Color.Black
                diente32c4E = "ausente"
            Case 4
                pnlDiente32c4.BackColor = Color.White
                diente32c4E = "normal"
                diente32c4 = 0

        End Select
    End Sub


    Private Sub PnlDiente32c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente32c3.Click
        diente32c3 = diente32c3 + 1
        cambiador32c3 = True

        Select Case diente32c3
            Case 0
                pnlDiente32c3.BackColor = Color.White
                diente32c3E = "normal"
            Case 1
                pnlDiente32c3.BackColor = Color.Yellow
                diente32c3E = "precaucion"
            Case 2
                pnlDiente32c3.BackColor = Color.Red
                diente32c3E = "alerta"
            Case 3
                pnlDiente32c3.BackColor = Color.Black
                diente32c3E = "ausente"
            Case 4
                pnlDiente32c3.BackColor = Color.White
                diente32c3E = "normal"
                diente32c3 = 0

        End Select
    End Sub



    Private Sub PnlDiente32c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente32c2.Click
        diente32c2 = diente32c2 + 1
        cambiador32c2 = True

        Select Case diente32c2
            Case 0
                pnlDiente32c2.BackColor = Color.White
                diente32c2E = "normal"
            Case 1
                pnlDiente32c2.BackColor = Color.Yellow
                diente32c2E = "precaucion"
            Case 2
                pnlDiente32c2.BackColor = Color.Red
                diente32c2E = "alerta"
            Case 3
                pnlDiente32c2.BackColor = Color.Black
                diente32c2E = "ausente"
            Case 4
                pnlDiente32c2.BackColor = Color.White
                diente32c2E = "normal"
                diente32c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente32c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente32c1.Click
        diente32c1 = diente32c1 + 1
        cambiador32c1 = True

        Select Case diente32c1
            Case 0
                pnlDiente32c1.BackColor = Color.White
                diente32c1E = "normal"
            Case 1
                pnlDiente32c1.BackColor = Color.Yellow
                diente32c1E = "precaucion"
            Case 2
                pnlDiente32c1.BackColor = Color.Red
                diente32c1E = "alerta"
            Case 3
                pnlDiente32c1.BackColor = Color.Black
                diente32c1E = "ausente"
            Case 4
                pnlDiente32c1.BackColor = Color.White
                diente32c1E = "normal"
                diente32c1 = 0

        End Select

    End Sub



    Private Sub PnlDiente31c4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente31c4.Click
        diente31c4 = diente31c4 + 1
        cambiador31c4 = True

        Select Case diente31c4
            Case 0
                pnlDiente31c4.BackColor = Color.White
                diente31c4E = "normal"
            Case 1
                pnlDiente31c4.BackColor = Color.Yellow
                diente31c4E = "precaucion"
            Case 2
                pnlDiente31c4.BackColor = Color.Red
                diente31c4E = "alerta"
            Case 3
                pnlDiente31c4.BackColor = Color.Black
                diente31c4E = "ausente"
            Case 4
                pnlDiente31c4.BackColor = Color.White
                diente31c4E = "normal"
                diente31c4 = 0

        End Select
    End Sub



    Private Sub PnlDiente31c3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente31c3.Click
        diente31c3 = diente31c3 + 1
        cambiador31c3 = True

        Select Case diente31c3
            Case 0
                pnlDiente31c3.BackColor = Color.White
                diente31c3E = "normal"
            Case 1
                pnlDiente31c3.BackColor = Color.Yellow
                diente31c3E = "precaucion"
            Case 2
                pnlDiente31c3.BackColor = Color.Red
                diente31c3E = "alerta"
            Case 3
                PnlDiente41c3.BackColor = Color.Black
                diente31c3E = "ausente"
            Case 4
                pnlDiente31c3.BackColor = Color.White
                diente31c3E = "normal"
                diente31c3 = 0

        End Select
    End Sub


    Private Sub PnlDiente31c2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente31c2.Click
        diente31c2 = diente31c2 + 1
        cambiador31c2 = True

        Select Case diente31c2
            Case 0
                pnlDiente31c2.BackColor = Color.White
                diente31c2E = "normal"
            Case 1
                pnlDiente31c2.BackColor = Color.Yellow
                diente31c2E = "precaucion"
            Case 2
                pnlDiente31c2.BackColor = Color.Red
                diente31c2E = "alerta"
            Case 3
                pnlDiente31c2.BackColor = Color.Black
                diente31c2E = "ausente"
            Case 4
                pnlDiente31c2.BackColor = Color.White
                diente31c2E = "normal"
                diente31c2 = 0

        End Select
    End Sub


    Private Sub PnlDiente31c1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pnlDiente31c1.Click
        diente31c1 = diente31c1 + 1
        cambiador31c1 = True

        Select Case diente31c1
            Case 0
                pnlDiente31c1.BackColor = Color.White
                diente31c1E = "normal"
            Case 1
                pnlDiente31c1.BackColor = Color.Yellow
                diente31c1E = "precaucion"
            Case 2
                pnlDiente31c1.BackColor = Color.Red
                diente31c1E = "alerta"
            Case 3
                pnlDiente31c1.BackColor = Color.Black
                diente31c1E = "ausente"
            Case 4
                pnlDiente31c1.BackColor = Color.White
                diente31c1E = "normal"
                diente31c1 = 0

        End Select

    End Sub

    Private Sub bttoningrdientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttoningrdientes.Click
        If cambiador11c1 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente11c1E + "','" + zona1 + "', '1',  '1');")
            consultar()
        End If

        If cambiador11c2 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente11c2E + "','" + zona1 + "', '1',  '2');")
            consultar()
        End If


        If cambiador11c3 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente11c3E + "','" + zona1 + "', '1',  '3');")
            consultar()
        End If

        If cambiador11c4 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente11c4E + "','" + zona1 + "', '1',  '4');")
            consultar()
        End If

        '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

        If cambiador12c1 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente12c2E + "','" + zona1 + "', '2',  '1');")
            consultar()
        End If

        If cambiador12c2 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente12c2E + "','" + zona1 + "', '2',  '2');")
            consultar()
        End If


        If cambiador12c3 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente12c2E + "','" + zona1 + "', '2',  '3');")
            consultar()
        End If

        If cambiador12c4 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente12c2E + "','" + zona1 + "', '2',  '4');")
            consultar()
        End If

        '--------------------------------------------------------------------------------------------------------------------


        If cambiador13c1 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente13c1E + "','" + zona1 + "', '3',  '1');")
            consultar()
        End If

        If cambiador13c2 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente13c2E + "','" + zona1 + "', '3',  '2');")
            consultar()
        End If


        If cambiador13c3 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente13c1E + "','" + zona1 + "', '3',  '3');")
            consultar()
        End If

        If cambiador13c4 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente13c2E + "','" + zona1 + "', '3',  '4');")
            consultar()
        End If

        '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

        If cambiador14c1 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente14c2E + "','" + zona1 + "', '4',  '1');")
            consultar()
        End If

        If cambiador14c2 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente14c2E + "','" + zona1 + "', '4',  '2');")
            consultar()
        End If


        If cambiador14c3 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente14c2E + "','" + zona1 + "', '4',  '3');")
            consultar()
        End If

        If cambiador14c4 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente14c2E + "','" + zona1 + "', '4',  '4');")
            consultar()
        End If

        '-------------------------------------------------------------------------------------------------------------------------------------------------------------




        If cambiador15c1 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente15c2E + "','" + zona1 + "', '5',  '1');")
            consultar()
        End If

        If cambiador15c2 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente15c2E + "','" + zona1 + "', '5',  '2');")
            consultar()
        End If


        If cambiador15c3 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente15c2E + "','" + zona1 + "', '5',  '3');")
            consultar()
        End If

        If cambiador15c4 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente15c2E + "','" + zona1 + "', '5',  '4');")
            consultar()
        End If

        '--------------------------------------------------------------------------------------------------------------------------------------------------------------------

        If cambiador16c1 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente16c2E + "','" + zona1 + "', '6',  '1');")
            consultar()
        End If

        If cambiador16c2 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente16c2E + "','" + zona1 + "', '6',  '2');")
            consultar()
        End If


        If cambiador16c3 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente16c2E + "','" + zona1 + "', '6',  '3');")
            consultar()
        End If

        If cambiador16c4 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente16c2E + "','" + zona1 + "', '6',  '4');")
            consultar()
        End If


        '-----------------------------------------------------------------------------

        If cambiador17c1 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente17c2E + "','" + zona1 + "', '7',  '1');")
            consultar()
        End If

        If cambiador17c2 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente17c2E + "','" + zona1 + "', '7',  '2');")
            consultar()
        End If


        If cambiador17c3 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente17c2E + "','" + zona1 + "', '7',  '3');")
            consultar()
        End If

        If cambiador17c4 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente17c2E + "','" + zona1 + "', '7',  '4');")
            consultar()
        End If

        ''-----------------------------------------------------------------------------

        If cambiador18c1 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente18c2E + "','" + zona1 + "', '8',  '1');")
            consultar()
        End If

        If cambiador18c2 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente18c2E + "','" + zona1 + "', '8',  '2');")
            consultar()
        End If


        If cambiador18c3 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente,cara) values ('" + id_p.ToString + "','" + diente18c2E + "','" + zona1 + "', '8',  '3');")
            consultar()
        End If

        If cambiador18c4 = True Then
            Consulta = ("insert into estado_dientes (id_p,estado,zona,nro_diente, cara) values ('" + id_p.ToString + "','" + diente18c2E + "','" + zona1 + "', '8',  '4');")
            consultar()

        End If




    End Sub

End Class