Newbie Try to Make Some VB app

hey i try your example, but it stuck when redirected to https://www.dropbox.com/1/oauth2/redirect_receiver white page and i cant catch the token acces and here i'm. but thanks by the way now i star to understand it

Imports System.Web
Imports System.Net
Imports System.Text
Imports System.Windows.Forms
Imports Dropbox
Imports Dropbox.Api


Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Be sure to replace this with your app key from dropbox.com/developers/apps.
        Dim clientID = "oxug9jwop2ktf38"

        ' The redirect URI you use doesn't really matter, so feel free to use something else,
        ' but this is one we've set up specifically for client-side apps to use.
        Dim redirectUri = New Uri("https://www.dropbox.com/1/oauth2/redirect_receiver")
        Dim uri = String.Format("https://www.dropbox.com/1/oauth2/authorize?response_type=token&redirect_uri={0}&client_id={1}", redirectUri, clientID)

        WebBrowser1.Navigate(uri)

    End Sub


    ' This method gets called when the WebBrowser control loads a new page.
    Private Sub webBrowser1_Navigated(sender As Object, e As WebBrowser)


        ' Make sure that this is our redirect page.
        If (e.Url.AbsoluteUri.StartsWith("https://www.dropbox.com/1/oauth2/redirect_receiver")) Then

        End If
        ' Parse out the access token from the URL fragment.
        Dim accessToken = HttpUtility.ParseQueryString(e.Url.Fragment.Substring(1))("acces_token")
        ' TODO: Save the access token somewhere so the user doesn't need to log in the next time!

        ' Make a call to /account/info to verify that the access token is working.
        Dim client = New WebClient()
        client.Headers("Authorization") = "Bearer " + accessToken
        Dim accountInfo = client.DownloadString("https://www.dropbox.com/1/account/info")
        MessageBox.Show("Account info: " + accountInfo)

    End Sub

    

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.alamat.Text = Me.WebBrowser1.Url.ToString
          End Sub
End Class