[-ZebRa-]

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim right As Object = Me.TextBox1.Text.Replace(" ", "+")
        Dim obj4 As Object = Operators.ConcatenateObject("site:mygully.com ", right)
        Dim objectValue As Object = Operators.ConcatenateObject("http://www.google.de/search?q=", obj4)
        Dim arguments As Object() = New Object() { RuntimeHelpers.GetObjectValue(objectValue) }
        Dim copyBack As Boolean() = New Boolean() { True }
        NewLateBinding.LateCall(Me.WebBrowser1, Nothing, "Navigate", arguments, Nothing, Nothing, copyBack, True)
        If copyBack(0) Then
            objectValue = RuntimeHelpers.GetObjectValue(arguments(0))
        End If
        If (Me.TextBox1.Text = "about:home") Then
            Me.WebBrowser1.Navigate("http://frickx.square7.ch/mygully/")
        End If
    End Sub

Ziemlich mager.

Da verbrauch ich ja mehr Zeit mit dem Download als mit dem Suchen.
Vor allem kann ich bei der internen Suche, die Suche eingrenzen.

PS: VB.Net ist der größze FAIL.
Programmier lieber mit C# etc. aber nicht mit VB!!!!!!!!!! xD