BC30188: Déclaration prévue ; Nouvelle NetworkCredential VB.NET

Après des années à faire un peu de programmation sur le côté (ASP Classique pendant 12 ans), je commence à faire beaucoup plus de programmation, et comme un résultat suis enseignant moi-même .net.

Je suis d'essayer d'utiliser UrbanAirship de l'API pour envoyer un test de notification push d'Apple Push Notification de Serveur (APN). J'ai trouvé cet exemple de code, mais je suis d'avoir un moment difficile de la mettre en œuvre.

Je reçois l'erreur: BC30188: Déclaration prévu. Voici le code de cette ligne en particulier:

req.Credentials = New NetworkCredential("username", "password")

Voici mon code entier:

pushvb.aspx

<%@ Page Language="VB" AutoEventWireup="false" src="pushvb_bg.aspx.vb" Inherits="UrbanAirship.uacode" %>

<% Response.write(UrbanAirship.uacode.testing) %>

pushvb_bg.aspx.vb

Imports System   
Imports System.Net  
Imports System.Text  
Imports System.IO  
Imports System.WinForms  

Namespace UrbanAirship  
public partial Class uacode  
    Inherits System.Web.UI.Page  
    Public Const testing As String = "testing..."  
    Dim req As WebRequest = WebRequest.Create("https://go.urbanairship.com/api/push/")  
    Dim postData As String = "{""aps"": {""badge"": ""+1"", ""alert"": ""pushvb"",""sound"": ""default"",""device_tokens"": ""token""}}"  
    req.Credentials = New NetworkCredential("username", "password")  
    req.Method = "POST"  
    Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)  
    req.ContentType = "application/json"  
    req.ContentLength = byteArray.Length  
    Dim dataStream As Stream = req.GetRequestStream()  
    dataStream.Write(byteArray, 0, byteArray.Length)  
    dataStream.Close()  
    Dim resp As WebResponse = req.GetResponse() 
    dataStream = resp.GetResponseStream()  
    Dim reader As New StreamReader(dataStream)  
    Dim responseFromServer As String = reader.ReadToEnd()  
    Console.WriteLine(responseFromServer)  
    reader.Close()  
    dataStream.Close()  
    req.Close()  
end Class  
end Namespace  

Toute aide serait grandement appréciée. Merci beaucoup pour avoir pris le temps de regarder par-dessus.