Aaron

    Imports System.Net
    Imports System.IO

    Public Class frmVortex

        Private Sub frmVortex_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            cmbSearchEngines.Items.Add("Google")
            cmbSearchEngines.Items.Add("YouTube")
            cmbSearchEngines.Items.Add("Wikipedia")

            cmbSearchEngines.SelectedIndex = 0
        End Sub

        Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
            WebBrowser1.GoBack()
        End Sub

        Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
            WebBrowser1.GoForward()
        End Sub

        Private Sub btnReload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReload.Click
            WebBrowser1.Refresh()
        End Sub

        Private Sub txtUrl_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUrl.KeyUp
            If e.KeyCode = Keys.Enter Then
                WebBrowser1.Navigate(txtUrl.Text)
            End If
        End Sub

        Private Sub webIcons()
            Dim wc As New WebClient
            Dim memorystream As New MemoryStream(wc.DownloadData("http://" & New Uri(WebBrowser1.Url.ToString).Host & "/favicon.ico"))
            Dim icon As New Icon(memorystream)

            If ImageList1.Images.Count = -1 Then
                ImageList1.Images.Add(icon.ToBitmap)
                TabControl1.SelectedTab.ImageIndex = 0
            Else
                ImageList1.Images.Clear()
                ImageList1.Images.Add(icon.ToBitmap)
                TabControl1.SelectedTab.ImageIndex = 0
            End If
        End Sub

        Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
            txtUrl.Text = WebBrowser1.Url.ToString
            webIcons()
        End Sub


        Private Sub txtUrlSearchEngines_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUrlSearchEngines.KeyUp
            Select Case (cmbSearchEngines.SelectedIndex)
                Case 0
                    If e.KeyCode = Keys.Enter Then
                        WebBrowser1.Navigate("https://www.google.com/#q=" + txtUrlSearchEngines.Text)
                    End If
                Case 1
                    If e.KeyCode = Keys.Enter Then
                        WebBrowser1.Navigate("http://www.youtube.com/results?search_query=" + txtUrlSearchEngines.Text)
                    End If
                Case 2
                    If e.KeyCode = Keys.Enter Then
                        WebBrowser1.Navigate("http://en.wikipedia.org/wiki/" + txtUrlSearchEngines.Text)
                    End If
            End Select
        End Sub

        Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
            WebBrowser1.Navigate(My.Settings.homePage)
        End Sub
    End Class