如何将对象的布尔值赋给visual basic中的变量

Question

您好我正在尝试分配从重新验证验证中获取的对象（数据）的布尔值。对象的值为TRUE，但将其分配给变量不起作用，结束时将其作为False发送。

Protected Sub Validate_Captcha(ByRef Validation As Boolean)

    Dim hdk As String = "ITOOKOUTTHESTRING"
    'Dim res As Recaptcha = Recaptcha.RecaptchaResponse()
    Dim Response As String = HttpContext.Current.Request.Form("g-recaptcha-response")
    Dim request As WebRequest = WebRequest.Create("https://www.google.com/recaptcha/api/siteverify?secret=" & hdk & "&response=" & Response)

    Using wResponse As WebResponse = request.GetResponse()
        Using readStream As StreamReader = New StreamReader(wResponse.GetResponseStream())
            Dim jsonResponse As String = readStream.ReadToEnd()
            Dim js As JavaScriptSerializer = New JavaScriptSerializer()
            Dim data As Object = js.Deserialize(Of Object)(jsonResponse)
            js.ConvertToType(Of Object)(data)
            Try
            ''    For Each obj As Object In data
            ''        Validation = Convert.ToBoolean(obj.Success.Value)
                Next

                '' ****************************
                '' THE PROBLEM IS HERE

                Validation = data(0).value

                '' **************************

                If Validation = False Then
                    Dim se As New Exception("Object is not validated")
                    Throw se
                End If

            Catch ex As FormatException
                lblError.Text = ex.Message
            Catch ex As InvalidCastException
                lblError.Text = ex.Message
            Catch ex As Exception
                lblError.Text = ex.Message

            End Try
        End Using
    End Using
End Sub