Was is falsch an dem src

[Jack Daniels]

Dies soll ein tool werden was Bilder auf Imagebanana uploaded
aber nach dem klick auf Upload macht der nicht das was er soll!

Public Class frmMain

    Dim Pfad As String

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        OpenFileDialog1.Filter = "Alle Dateien (*.*) |*.*"
        OpenFileDialog1.ShowDialog()
        Pfad = OpenFileDialog1.FileName

    End Sub

    Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
        WebBrowser1.Navigate("www.imagebanana.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        WebBrowser1.Document.GetElementById("contentuploadbox").InnerText = Pfad.ToString
        WebBrowser1.Document.Forms(0).InvokeMember("send")
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        End

    End Sub

    Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        OpenFileDialog1.Filter = "Alle Dateien (*.*) |*.*"
        OpenFileDialog1.ShowDialog()
        Pfad = OpenFileDialog1.FileName

    End Sub

    Private Sub SchließenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchließenToolStripMenuItem.Click
        End

    End Sub
End Class

http://uploaded.to/?id=w2f7c6


~Jack