Public Class FilterClass

    Dim m_columname As String
    Dim m_filtervalue As String
    Property Columname() As String
        Get
            Return m_columname
        End Get
        Set(ByVal value As String)
            m_columname = value
        End Set
    End Property

    Property FilterValue() As String
        Get
            Return m_filtervalue
        End Get
        Set(ByVal value As String)
            m_filtervalue = value
        End Set
    End Property

    Sub New(ByVal columname As String, ByVal filtervalue As String)
        MyBase.New()
        Me.Columname = columname
        Me.FilterValue = filtervalue
    End Sub

    Sub New()
        MyBase.New()
    End Sub
    Public Sub add(ByVal columname As String, ByVal filtervalue As String)
        Me.Columname = columname
        Me.FilterValue = filtervalue
    End Sub
End Class