Vb.net and newtonsoft json

Dim currentDeviceIPAddress As String = "127.0.0.1:8081"
    Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes("admin" & ":" & "admin"))

    Public Class JSON_ResetInfoReturn
        <JsonProperty("code")>
        Public Property code As Integer

        <JsonProperty("messages")>
        Public Property messages As String
    End Class

    Public Class JSON_ResetInfo
        <JsonProperty("mode")>
        Public Property mode As String
    End Class



    Public Shared Sub IgnoreBadCertificates()
        System.Net.ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(AddressOf AcceptAllCertifications)
    End Sub
    Private Shared Function AcceptAllCertifications(ByVal sender As Object, ByVal certification As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors) As Boolean
        Return True
    End Function

Private Sub Reboot()
    'Reboot 

    IgnoreBadCertificates()

    'Send parameters
    Dim initReboot As New JSON_ResetInfo
    With initReboot
        .mode = "Reboot"
    End With

    Dim rebootJsonString As String = String.Empty
    rebootJsonString = JsonConvert.SerializeObject(initReboot)

    Dim request As HttpWebRequest
    Dim address As Uri
    Dim postStream As Stream = Nothing
    Dim result As JSON_ResetInfoReturn


    address = New Uri("https://" + currentDeviceIPAddress + "/api/util/reset")
    'request = WebRequest.CreateHttp(address)
    request = HttpWebRequest.Create(address)
    request.Host = currentDeviceIPAddress
    request.Method = "POST"
    request.ContentType = "application/json"

    ' Login info
    'request.Credentials = New NetworkCredential("admin", "admin")
    request.Headers.Add("Authorization", "Basic " & credentials)

    Dim jsonBytes = Encoding.UTF8.GetBytes(rebootJsonString)
    request.ContentLength = jsonBytes.Length
    postStream = request.GetRequestStream()
    postStream.Write(jsonBytes, 0, jsonBytes.Length)

    Dim responseContent As String = ""

    Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
        Using reader = New System.IO.StreamReader(response.GetResponseStream())
            responseContent = reader.ReadToEnd()
            result = JsonConvert.DeserializeObject(Of JSON_ResetInfoReturn)(responseContent)
        End Using
    End Using


    If result.code > 0 Then
        MessageBox.Show("Error:" + result.code)
        'returnValue = False
    Else
        Me.Close()
    End If

End Sub