Search Engine

[Apache]

Code:

Public Class Form1

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("http://www.google.com/search?hl=en&q=" + TextBox1.Text + "&aq=f&oq=")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Navigate("http://search.yahoo.com/search;_ylt=A0oG78vJkytNSScANWal87UF;_ylc=X1MDMjE0MjQ3ODk0OARfcgMyBGZyA3NmcARuX2dwcwMxMARvcmlnaW4Dc3ljBHF1ZXJ5A1RFU1QEc2FvAzE-?p=" + TextBox1.Text + "&fr=sfp&fr2=&iscqry=")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Navigate("http://www.bing.com/search?q=" + TextBox1.Text + "&go=&form=QBLH&qs=n&sk=")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Navigate("http://www.ask.com/web?q=" + TextBox1.Text + "&search=&qsrc=0&o=ushpd&l=dis")
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        WebBrowser1.Navigate("http://images.google.com/images?hl=en&source=imghp&biw=1600&bih=756&q=" + TextBox1.Text + "&btnG=Search+Images&gbv=2&aq=f&aqi=g10&aql=&oq=&gs_rfai=")
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        WebBrowser1.Navigate("http://www.bing.com/images/search?q=" + TextBox1.Text + "&go=&form=QBIL")
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        WebBrowser1.Navigate("http://images.search.yahoo.com/search/images;_ylt=A0WTb_61mCtN4C8Aj2WLuLkF?p=" + TextBox1.Text + "&ei=utf-8&iscqry=&fr=sfp")
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        WebBrowser1.Navigate("http://photobucket.com/images/" + TextBox1.Text + "/")
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        WebBrowser1.Navigate("http://www.google.com/search?q=" + TextBox1.Text + "&tbo=p&tbs=vid:1&source=vgc&hl=en&aq=f")
    End Sub

    Private Sub Button13_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        WebBrowser1.Navigate("http://www.youtube.com/results?search_type=&search_query=" + TextBox1.Text + "&aq=f")
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        WebBrowser1.Navigate("http://www.blinkx.com/videos/" + TextBox1.Text)
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        WebBrowser1.Navigate("http://www.metacafe.com/results/" + TextBox1.Text + "/")
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Me.Close()
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        MsgBox("Created by Bradley M")
        Dim Email As String
        Email = "Bradleymalone@live.com"
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        WebBrowser1.Navigate("http://www.flickr.com/search/?q=" + TextBox1.Text)
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        WebBrowser1.Navigate("http://en.wikipedia.org/wiki/" + TextBox1.Text)
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        WebBrowser1.Navigate("http://www.wikihow.com/Special:GoogSearch?cx=008953293426798287586:mr-gwotjmbs&cof=FORID:10&ie=UTF-8&q=" + TextBox1.Text + "&siteurl=www.wikihow.com/Main-Page&siteurl=www.wikihow.com/Main-Page")
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        WebBrowser1.Navigate("http://www.ehow.com/search.aspx?s=" + TextBox1.Text)
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        WebBrowser1.Navigate("http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Daps&field-keywords=" + TextBox1.Text + "&x=19&y=18")
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        WebBrowser1.Navigate("http://shop.ebay.com/?_from=R40&_trksid=p5197.m570.l1313&_nkw=" + TextBox1.Text + "&_sacat=See-All-Categories")
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        WebBrowser1.Navigate("http://www.shopzilla.com/" + TextBox1.Text + "/search")
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        WebBrowser1.Navigate("http://twitter.com/#search?q=" + TextBox1.Text)
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        WebBrowser1.Navigate("http://www.nasdaq.com/aspx/flashquotes.aspx?symbol=TEST&selected=" + TextBox1.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.Navigate("http://dictionary.reference.com/browse/" + TextBox1.Text)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        WebBrowser1.Navigate("http://thesaurus.com/browse/" + TextBox1.Text)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        WebBrowser1.Navigate("http://www.synonym.com/antonym/" + TextBox1.Text)
    End Sub
End Class

All credits go to me

Download Link: http://www.mediafire.com/?dukiatwd8wsfftz

The program does connect to the internet, so your firewall will go off.