Private Sub grdGrelha01_AntesFiltroSeleccionado(ByVal Col As Long, ByVal Row As Long, ByVal Value As Variant)

Dim lngLi                               As Long
Dim strColKey                           As String

    With grdGrelha01
        strColKey = .Cols.Edita(Col).ColKey
        For lngLi = 1 To .NumeroRegistos

            If .GRID_GetValorCelula(lngLi, strColKey) = Value Then
                .Grid_EscondeLinha lngLi, lngLi, True
            End If

        Next lngLi
    End With
End Sub