Vk login minibrowser

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

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim postData As String = ("op=1" & "&email=" + TextBox1.Text + "&pass=" + TextBox2.Text + "&expire=0") ' Параметры пост запроса
        Dim byteData As Byte() = Encoding.UTF8.GetBytes(postData) ' Тип передачи данных в UTF8 кодировке
        Dim AdditionalHeaders As String = "Content-Type: application/x-www-form-urlencoded" + Environment.NewLine ' Тип данных для передачи login и password
        WebBrowser1.Navigate("http://vk.com/login.php?", "", byteData, AdditionalHeaders) ' где будем авторизоваться
        ProgressBar1.Value = ProgressBar1.Minimum '

        ProgressBar1.Value = ProgressBar1.Maximum 'Здесь закончится
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ProgressBar1.Value = ProgressBar1.Minimum '
        ProgressBar1.Value = ProgressBar1.Maximum 'Здесь закончится

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub
End Class