1. CODER NAME: John April C. Baquirin
2. IF YOU HAVE ANY QUESTIONS, aDD Me https://www.facebook.com/balongee
3. THANKS.
4.  
5. Public Class Form1
6.     Dim int As Integer = 0
7. -------------------------------------------------
8.     Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
9.         ToolStripProgressBar1.Maximum = e.MaximumProgress
10.         ToolStripProgressBar1.Value = e.CurrentProgress
11.     End Sub
12. -------------------------------------------------------------------------------------
13.     Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
14.         TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
15.         ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
16.     End Sub
17. ----------------------------------------------------------------------------------------------------------
18.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
19.         Dim Browser As New WebBrowser
20.         TabControl1.TabPages.Add("New Page")
21.         Browser.Name = "Web Browser"
22.         Browser.Dock = DockStyle.Fill
23.         TabControl1.SelectedTab.Controls.Add(Browser)
24.         AddHandler Browser.ProgressChanged, AddressOf Loading
25.         AddHandler Browser.DocumentCompleted, AddressOf Done
26.         int = int + 1
27.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
28.     End Sub
29. ----------------------------------------------------------------------------------------------------------------
30.     Private Sub AddTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTabToolStripMenuItem.Click
31.         Dim Browser As New WebBrowser
32.         TabControl1.TabPages.Add("New Page")
33.         TabControl1.SelectTab(int)
34.         Browser.Name = "Web Browser"
35.         Browser.Dock = DockStyle.Fill
36.         TabControl1.SelectedTab.Controls.Add(Browser)
37.         AddHandler Browser.ProgressChanged, AddressOf Loading
38.         AddHandler Browser.DocumentCompleted, AddressOf Done
39.         int = int + 1
40.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
41.     End Sub
42. ----------------------------------------------------------------------------------------------------------------------
43.     Private Sub RemoveTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveTabToolStripMenuItem.Click
44.         If Not TabControl1.TabPages.Count = 1 Then
45.             TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
46.             TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
47.             int = int - 1
48.         End If
49.     End Sub
50. -----------------------------------------------------------------------------------------------------------------------
51.     Private Sub WebsitePropertiesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebsitePropertiesToolStripMenuItem.Click
52.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
53.     End Sub
54. ------------------------------------------------------------------------------------------------------------------------
55.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
56.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
57.     End Sub
58. -----------------------------------------------------------------------------------------------------------------------
59.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
60.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
61.     End Sub
62. ------------------------------------------------------------------------------------------------------------------------
63.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
64.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
65.     End Sub
66. ------------------------------------------------------------------------------------------------------------------------
67.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
68.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
69.     End Sub
70. ------------------------------------------------------------------------------------------------------------------------
71.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
72.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
73.     End Sub
74. ------------------------------------------------------------------------------------------------------------------------
75.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
76.         CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
77.     End Sub
78. ------------------------------------------------------------------------------------------------------------------------
79.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
80.         ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
81.     End Sub
82. End Class
83. ------------------------------------------------------------------------------------------------------------------------