Private Sub LBL_LFAMILIA_Click()

    If LBL_CFam.Tag = Empty Or LBL_CFam.Tag = "DESC" Then

        For iPunt = 0 To LST_PRODUCTOS.ListCount - 2
           For jPunt = iPunt + 1 To LST_PRODUCTOS.ListCount - 1

            xFam1 = EXTRAER(LST_PRODUCTOS.List(iPunt), "Familia")
            xFam2 = EXTRAER(LST_PRODUCTOS.List(jPunt), "Familia")

            If xFam1 > xFam2 Then

            Aux = LST_PRODUCTOS.List(jPunt)
            LST_PRODUCTOS.List(jPunt) = LST_PRODUCTOS.List(iPunt)
            LST_PRODUCTOS.List(iPunt) = Aux

            End If

           Next
        Next

    LBL_CFam.Tag = "ASCE"
    LBL_CFam.Caption = Chr(234)

    Else

        For iPunt = 0 To LST_PRODUCTOS.ListCount - 2
       For jPunt = iPunt + 1 To LST_PRODUCTOS.ListCount - 1

        xFam1 = EXTRAER(LST_PRODUCTOS.List(iPunt), "Familia")
        xFam2 = EXTRAER(LST_PRODUCTOS.List(jPunt), "Familia")

        If xFam1 < xFam2 Then

        Aux = LST_PRODUCTOS.List(jPunt)
        LST_PRODUCTOS.List(jPunt) = LST_PRODUCTOS.List(iPunt)
        LST_PRODUCTOS.List(iPunt) = Aux

        End If

       Next
    Next

    LBL_CFam.Tag = "DESC"
    LBL_CFam.Caption = Chr(233)

    End If

    LBL_CNom.Tag = ""
    LBL_CNom.Caption = ""
    LBL_CCod.Tag = ""
    LBL_CCod.Caption = ""
End Sub