Code to create a simple web browser in VB

This is a code to create a simple web browser in VB.
You will need the following in your form
7 buttons
1 web browser tool
1 Toolstrip
3 radiobuttons
2 comboboxes
progress bar, status bar etc.

Public Class Form1
    Private Sub Button6_Click(  sender As System.Object,  e As System.EventArgs) Handles Button6.Click
        WebBrowser1.Navigate(ComboBox1.Text)
    End Sub
 
    Private Sub ExitToolStripMenuItem_Click(  sender As System.Object,  e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub
 
    Private Sub Button1_Click(  sender As System.Object,  e As System.EventArgs) Handles Button1.Click
        WebBrowser1.GoBack()
    End Sub
 
    Private Sub Button2_Click(  sender As System.Object,  e As System.EventArgs) Handles Button2.Click
        WebBrowser1.GoForward()
    End Sub
 
    Private Sub Button3_Click(  sender As System.Object,  e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Refresh()
    End Sub
 
    Private Sub Button4_Click(  sender As System.Object,  e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Stop()
    End Sub
 
    Private Sub Button7_Click(  sender As System.Object,  e As System.EventArgs) Handles Button7.Click
        If RadioButton1.Checked Then
            WebBrowser1.Navigate("https://www.google.co.in/search?hl=en&q=" & ComboBox2.Text & "&btnG=Google+Search&meta=")
        End If
        If RadioButton2.Checked Then
            WebBrowser1.Navigate("https://search.yahoo.com/search?p=" & ComboBox2.Text & "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
        End If
        If RadioButton3.Checked Then
            WebBrowser1.Navigate("https://www.youtube.com/results?search_query=" & ComboBox2.Text & "&search_type=&aq=-1&oq=")
        End If
    End Sub
 
    Private Sub ComboBox1_KeyDown(  sender As Object,  e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            ComboBox1.Items.Add(ComboBox1.Text)
            WebBrowser1.Navigate(ComboBox1.Text)
            Me.Text = (ComboBox1.Text)
        End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(  sender As System.Object,  e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        WebBrowser1.Navigate(ComboBox1.Text)
    End Sub
    Private Sub BlackWhiteToolStripMenuItem_Click(  sender As System.Object,  e As System.EventArgs) Handles BlackAndWhiteToolStripMenuItem.Click
        Me.BackColor = Color.Black
        Me.BackColor = Color.Black
        Me.ComboBox1.BackColor = Color.White
        Me.ComboBox2.BackColor = Color.White
        Me.ComboBox1.ForeColor = Color.Black
        Me.ComboBox2.ForeColor = Color.Black
        Me.RadioButton1.ForeColor = Color.White
        Me.RadioButton2.ForeColor = Color.White
        Me.RadioButton3.ForeColor = Color.White
        Me.StatusStrip1.BackColor = Color.Black
        Me.MenuStrip1.BackColor = Color.Black
        Me.FileToolStripMenuItem.ForeColor = Color.Blue
        Me.ThemeToolStripMenuItem.ForeColor = Color.Blue
        Me.ThemeToolStripMenuItem.BackColor = Color.Empty
        Me.FileToolStripMenuItem.BackColor = Color.Empty
        Me.ToolStripStatusLabel1.ForeColor = Color.White
    End Sub
 
    Private Sub RegularToolStripMenuItem_Click(  sender As System.Object,  e As System.EventArgs) Handles RegularToolStripMenuItem.Click
        Me.BackColor = Color.Empty
        Me.ForeColor = Color.Empty
        Me.RadioButton1.ForeColor = Color.Black
        Me.RadioButton2.ForeColor = Color.Black
        Me.RadioButton3.ForeColor = Color.Black
        Me.ComboBox1.BackColor = Color.White
        Me.ComboBox2.BackColor = Color.White
        Me.ComboBox1.ForeColor = Color.Black
        Me.ComboBox2.ForeColor = Color.Black
        Me.StatusStrip1.BackColor = Color.Empty
        Me.MenuStrip1.BackColor = Color.Empty
        Me.FileToolStripMenuItem.ForeColor = Color.Black
        Me.ThemeToolStripMenuItem.ForeColor = Color.Black
        Me.ThemeToolStripMenuItem.BackColor = Color.Empty
        Me.FileToolStripMenuItem.BackColor = Color.Empty
        Me.ToolStripStatusLabel1.ForeColor = Color.Black
    End Sub
 
    Private Sub WebBrowser1_Navigating(  sender As Object,  e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        ToolStripStatusLabel1.Visible = False
    End Sub
 
    Private Sub PrintToolStripMenuItem_Click(  sender As System.Object,  e As System.EventArgs) Handles PrintToolStripMenuItem.Click
        WebBrowser1.ShowPrintDialog()
    End Sub
 
    Private Sub PrintPreviewToolStripMenuItem_Click(  sender As System.Object,  e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click
        WebBrowser1.ShowPrintPreviewDialog()
    End Sub
 
    Private Sub PropertiesToolStripMenuItem_Click(  sender As System.Object,  e As System.EventArgs) Handles PropertiesToolStripMenuItem.Click
        WebBrowser1.ShowPropertiesDialog()
    End Sub
 
    Private Sub Button5_Click(  sender As System.Object,  e As System.EventArgs) Handles Button5.Click
        WebBrowser1.Navigate("https://www.yahoo.com/")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(  sender As System.Object,  e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ComboBox1.Text = WebBrowser1.Url.ToString
        StatusStrip1.Visible = True
        ToolStripProgressBar1.Value = 0
        ToolStripStatusLabel1.Visible = True
    End Sub
 
    Private Sub WebBrowser1_ProgressChanged(  sender As Object,  e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        Dim CurProg As Single
        Dim MaxProg As Single
        CurProg = e.CurrentProgress
        MaxProg = e.MaximumProgress
        ToolStripProgressBar1.Value = (CurProg / MaxProg) * 100
    End Sub
End Class