Advanced Google Search Engine "Complete" Tutorial - Visual Basic 2010

In this tutorial you will learn to create a google search engine, that includes web, image, maps, play & youtube searchs. this is done via textbox, buttons, radiobuttons, labels & a webbrowser!

here is the code:

Public Class Form1

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
RadioButton1.Checked = True

End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
RadioButton2.Checked = True
End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
RadioButton3.Checked = True
End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
RadioButton4.Checked = True
End Sub

Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
RadioButton5.Checked = True
End Sub

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
If Panel2.Visible = False Then
Panel2.Visible = True
ElseIf Panel2.Visible = True Then
Panel2.Visible = False
End If
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If RadioButton1.Checked = True Then
WebBrowser1.Navigate("http://www.google.com/webhp?hl=en&tab=w #hl=en&tbo=d&output=search&sclient=psy-ab&q=" + TextBox1.Text)

ElseIf RadioButton2.Checked = True Then
WebBrowser1.Navigate("http://www.google.com/search?num=10&hl=en&site=imghp&tbm=isch&source=hp&biw=1366&bih=673&q=" + TextBox1.Text)

ElseIf RadioButton3.Checked = True Then
WebBrowser1.Navigate("http://maps.google.com/maps?num=10&hl=en&biw=1366&bih=673&q=" + TextBox1.Text)

ElseIf RadioButton4.Checked = True Then
WebBrowser1.Navigate("https://play.google.com/store/search?q=" + TextBox1.Text)

ElseIf RadioButton5.Checked = True Then
WebBrowser1.Navigate("https://www.youtube.com/results?search_query=" + TextBox1.Text)

End If
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 WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Label1.Text = WebBrowser1.DocumentTitle
End Sub

Private Sub WebBrowser1_Navigating(sender As System.Object, e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
Label2.Text = WebBrowser1.StatusText
End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If CheckBox1.Checked = True Then

If RadioButton1.Checked = True Then
WebBrowser1.Navigate("http://www.google.com/webhp?hl=en&tab=w #hl=en&tbo=d&output=search&sclient=psy-ab&q=" + TextBox1.Text)

ElseIf RadioButton2.Checked = True Then
WebBrowser1.Navigate("http://www.google.com/search?num=10&hl=en&site=imghp&tbm=isch&source=hp&biw=1366&bih=673&q=" + TextBox1.Text)

ElseIf RadioButton3.Checked = True Then
WebBrowser1.Navigate("http://maps.google.com/maps?num=10&hl=en&biw=1366&bih=673&q=" + TextBox1.Text)

ElseIf RadioButton4.Checked = True Then
WebBrowser1.Navigate("https://play.google.com/store/search?q=" + TextBox1.Text)

ElseIf RadioButton5.Checked = True Then
WebBrowser1.Navigate("https://www.youtube.com/results?search_query=" + TextBox1.Text)

End If

Button3.Visible = False

ElseIf CheckBox1.Checked = False Then

Button3.Visible = True

End If
End Sub
End Class