VS 2010 Tabbed Web Browser (Basic code for beginners)

I created a web browser in VB.NET and here is the code.


'Code by Mezdux (Lewis Hayman)

Public Class Form1
Private Sub Button1_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
WebBrowser1.GoBack()

If WebBrowser2.Visible = True Then
WebBrowser2.GoBack()


End If
End Sub
Private Sub Button2__1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
WebBrowser1.GoForward()
If WebBrowser2.Visible = True Then
WebBrowser2.GoForward()
End If

End Sub

Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
WebBrowser1.Stop()
If WebBrowser2.Visible = True Then
WebBrowser2.Stop()
End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Refresh()
If WebBrowser2.Visible = True Then
WebBrowser2.Refresh()
End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.GoHome()
If WebBrowser2.Visible = True Then
WebBrowser2.GoHome()
End If

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
WebBrowser1.Navigate("http://www.google.com/search?q=" & txtSearch.Text)
If WebBrowser2.Visible = True Then
WebBrowser2.Navigate("http://www.google.com/search?q=" & txtSearch.Text)
End If

End Sub

Private Sub btnGo_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
WebBrowser1.Navigate(txtHttp.Text)
If WebBrowser2.Visible = True Then
WebBrowser2.Navigate(txtHttp.Text)
End If

End Sub

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

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Form2.Show()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.GoBack()
If WebBrowser2.Visible = True Then
WebBrowser2.GoBack()
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoForward()
If WebBrowser2.Visible = True Then
WebBrowser2.GoForward()

End If
End Sub

Private Sub btnstop_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
btnTab1.Visible = True
btnTab2.Visible = True

End Sub

Private Sub btnTab2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTab2.Click
WebBrowser1.Visible = False
WebBrowser2.Visible = True
If btnTab2.Visible = True Then
btnTab2.Text = "Tab 2 Active"

End If

End Sub

Private Sub btnTab1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTab1.Click
WebBrowser2.Visible = False
WebBrowser1.Visible = True

End Sub
End Class



It is only a work in progress, final code will be posted.