Imports Microsoft.VisualBasic

Public Class gResponseClass
    Private _kind As String
    Private _url() As url
    Private _items() As items

    Public Property kind() As String
        Get
            Return _kind
        End Get
        Set(ByVal value As String)
            _kind = value
        End Set
    End Property
    Public Property url() As url()
        Get
            Return _url
        End Get
        Set(ByVal value As url())
            _url = value
        End Set
    End Property
    Public Property items() As items()
        Get
            Return _items
        End Get
        Set(ByVal value As items())
            _items = value
        End Set
    End Property
End Class

Public Class url
    Private _type As String
    Private _template As String

    Public Property type() As String
        Get
            Return _type
        End Get
        Set(ByVal value As String)
            _type = value
        End Set
    End Property
    Public Property template() As String
        Get
            Return _template
        End Get
        Set(ByVal value As String)
            _template = value
        End Set
    End Property
End Class

Public Class request
    Private _title As String
    Private _totalResult As String
    Private _searchTems As String
    Private _count As String
    Private _startIndex As String
    Private _inputEncoding As String
    Private _outputEncoding As String
    Private _safe As String
    Private _cx As String

    Public Property title() As String
        Get
            Return _title
        End Get
        Set(ByVal value As String)
            _title = value
        End Set
    End Property
End Class

Public Class items
    Private _kind As String
    Private _title As String
    Private _htmlTitle As String
    Private _link As String
    Private _displayLink As String
    Private _snippet As String
    Private _htmlSnippet As String

    Public Property kind() As String
        Get
            Return _kind
        End Get
        Set(ByVal value As String)
            _kind = value
        End Set
    End Property
    Public Property title() As String
        Get
            Return _title
        End Get
        Set(ByVal value As String)
            _title = value
        End Set
    End Property
    Public Property htmlTitle() As String
        Get
            Return _htmlTitle
        End Get
        Set(ByVal value As String)
            _htmlTitle = value
        End Set
    End Property
    Public Property link() As String
        Get
            Return _link
        End Get
        Set(ByVal value As String)
            _link = value
        End Set
    End Property
    Public Property displayLink() As String
        Get
            Return _displayLink
        End Get
        Set(ByVal value As String)
            _displayLink = value
        End Set
    End Property
    Public Property snippet() As String
        Get
            Return _snippet
        End Get
        Set(ByVal value As String)
            _snippet = value
        End Set
    End Property
    Public Property htmlSnippet() As String
        Get
            Return _htmlSnippet
        End Get
        Set(ByVal value As String)
            _htmlSnippet = value
        End Set
    End Property
End Class