WebkitBrowser Programm wird angehalten.

Public Class Form1
    Public WithEvents browser As New WebKit.WebKitBrowser
    Public WithEvents Txt As New TextBox
    Public WithEvents BGO As New Button
    Public WithEvents BN As New Button
    Public WithEvents BB As New Button


    Public Sub New()


        MinimumSize = New System.Drawing.Size(1024, 768)
        Size = New Size(1024, 768)
        StartPosition = FormStartPosition.CenterScreen
        Text = "Browser"
        DoubleBuffered = True
        BackColor = Color.Black


        Me.browser = New WebKit.WebKitBrowser()

        browser.Size = New Size(1021, 700)
        browser.Location = New Point(0, 30)
        Me.Controls.Add(browser)

        Me.browser.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
        System.Windows.Forms.AnchorStyles.Right Or
        System.Windows.Forms.AnchorStyles.Left Or
        System.Windows.Forms.AnchorStyles.Bottom), System.Windows.Forms.AnchorStyles)





        browser.BringToFront()



        BGO = New Button()
        BGO.Size = New Size(35, 25)
        BGO.Location = New Point(950, 5)
        Me.Controls.Add(BGO)
        BGO.ForeColor = Color.OrangeRed
        BGO.BackColor = Color.Black
        Me.BGO.Font = New System.Drawing.Font("Arial", 10.0!,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        CType(0, Byte))
        BGO.Text = "Go"
        BGO.BringToFront()

        Me.BGO.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
            System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)


        BB = New Button()
        BB.Size = New Size(30, 25)
        BB.Location = New Point(900, 5)
        Me.Controls.Add(BB)
        BB.ForeColor = Color.OrangeRed
        BB.BackColor = Color.Black
        Me.BB.Font = New System.Drawing.Font("Arial", 10.0!,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        CType(0, Byte))
        BB.Text = "<-"
        BB.BringToFront()

        Me.BB.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
            System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

        BN = New Button()
        BN.Size = New Size(30, 25)
        BN.Location = New Point(925, 5)
        Me.Controls.Add(BN)
        BN.ForeColor = Color.OrangeRed
        BN.BackColor = Color.Black
        Me.BN.Font = New System.Drawing.Font("Arial", 10.0!,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        CType(0, Byte))
        BN.Text = "->"
        BN.BringToFront()

        Txt = New TextBox()
        Txt.Size = New Size(115, 30)
        Txt.Location = New Point(785, 6)
        Me.Controls.Add(Txt)
        Me.Txt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
            System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Txt.ForeColor = Color.OrangeRed
        Txt.BackColor = Color.Black
        Me.Txt.Font = New System.Drawing.Font("Arial", 10.0!,
        System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
        CType(0, Byte))
        Txt.Text = "URL hier eingeben"
        Txt.BringToFront()
        Me.BN.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or
            System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)


        browser.Navigate("Google.de")
    End Sub

    Private Sub BGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BGO.Click

        If Txt.Text = "" Then
            MsgBox("Gib eine url ein du sau")
        ElseIf Txt.Text = "URL hier eingeben" Then
            MsgBox("Bro Url?")
        Else
            browser.Navigate(Txt.Text.ToString)
        End If
    End Sub
    Private Sub BB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BB.Click
        browser.GoBack()
    End Sub
    Private Sub BN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BN.Click
        browser.GoForward()
    End Sub

    Private Sub Txt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt.Click
        Txt.Text = ""
    End Sub

    Private Sub Txt_KeyDown(sender As Object, e As KeyEventArgs) Handles Txt.KeyDown

        Select Case e.KeyCode
            Case Keys.Enter
                If Txt.Text = "" Then
                    MsgBox("Gib eine url ein du sau")
                ElseIf Txt.Text = "URL hier eingeben" Then
                    MsgBox("Bro Url?")
                Else
                    e.SuppressKeyPress = True
                    browser.Navigate(Txt.Text.ToString)
                End If

                Exit Select
        End Select
    End Sub
End Class