EDN Admin
Well-known member
I am a still a beginner at this so bare with me. I have made a web browser which is my starting point in VB. Now its fully functional and has history and all that. And i am using tab control as the browser part. History works when the go button or enter
key is pressed but I cant get this to work when a user clicks a link. Any help on this would be greatly appreciated! here is my code so far:
<div style="color:Black;background-color:White; <pre>
<span style="color:Blue; Public <span style="color:Blue; Class Form1
<span style="color:Blue; Dim int <span style="color:Blue; As <span style="color:Blue; Integer = 0
<span style="color:Blue; Dim tabs
<span style="color:Blue; Public thisurl
<span style="color:Blue; Dim panloc <span style="color:Blue; As <span style="color:Blue; New Point(0, 0)
<span style="color:Blue; Dim panloc2 <span style="color:Blue; As <span style="color:Blue; New Point(0, 0)
<span style="color:Blue; Dim curloc <span style="color:Blue; As <span style="color:Blue; New Point(0, 0)
<span style="color:Blue; Private MouseIsDown <span style="color:Blue; As <span style="color:Blue; Boolean = <span style="color:Blue; False
<span style="color:Blue; Private <span style="color:Blue; Sub Loading(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As Windows.Forms.WebBrowserProgressChangedEventArgs)
ToolStripProgressBar1.Maximum = e.MaximumProgress
<span style="color:Green; ToolStripProgressBar1.Value = e.CurrentProgress
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Done(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
TabControl1.SelectedTab.Text = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
ComboBox1.Text = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Form1_FormClosing(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.FormClosingEventArgs) <span style="color:Blue; Handles <span style="color:Blue; Me.FormClosing
<span style="color:Blue; For FadeOut = 90 <span style="color:Blue; To 10 <span style="color:Blue; Step -30
<span style="color:Blue; Me.Opacity = FadeOut / 100
<span style="color:Blue; Me.Refresh()
Threading.Thread.Sleep(50)
<span style="color:Blue; Next
<span style="color:Blue; End
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Form1_Load(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles <span style="color:Blue; MyBase.Load
<span style="color:Blue; Dim ImageList1 <span style="color:Blue; As <span style="color:Blue; New ImageList
<span style="color:Blue; Dim Browser <span style="color:Blue; As <span style="color:Blue; New WebBrowser
TabControl1.TabPages.Add(<span style="color:#A31515; "New Page")
Browser.Name = <span style="color:#A31515; "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
<span style="color:Blue; AddHandler Browser.ProgressChanged, <span style="color:Blue; AddressOf Loading
<span style="color:Blue; AddHandler Browser.DocumentCompleted, <span style="color:Blue; AddressOf Done
int = int + 1
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.History
ListBox3.Items.Add(Item)
ComboBox1.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.Bookmarks
ListBox2.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.SearchHistory
ListBox4.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; If <span style="color:Blue; My.Settings.StartWithHomePage <span style="color:Blue; AndAlso _
<span style="color:Blue; Not <span style="color:Blue; String.IsNullOrEmpty(<span style="color:Blue; My.Settings.HomePage) <span style="color:Blue; Then
<span style="color:Green; Load the home page.
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:Blue; My.Settings.HomePage) <span style="color:Green;
<span style="color:Blue; End <span style="color:Blue; If
Timer1.Interval = <span style="color:#A31515; "1"
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub AddTabToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles AddTabToolStripMenuItem.Click
<span style="color:Blue; Dim Browser <span style="color:Blue; As <span style="color:Blue; New WebBrowser
TabControl1.TabPages.Add(<span style="color:#A31515; "New Page")
TabControl1.SelectTab(int)
Browser.Name = <span style="color:#A31515; "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
<span style="color:Blue; AddHandler Browser.ProgressChanged, <span style="color:Blue; AddressOf Loading
<span style="color:Blue; AddHandler Browser.DocumentCompleted, <span style="color:Blue; AddressOf Done
int = int + 1
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub RemoveTabToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles RemoveTabToolStripMenuItem.Click
<span style="color:Blue; If <span style="color:Blue; Not TabControl1.TabPages.<span style="color:Blue; Count = 1 <span style="color:Blue; Then
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPages.<span style="color:Blue; Count - 1)
int = int - 1
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub WebsitePropertiesToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles WebsitePropertiesToolStripMenuItem.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button2_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button3_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button4_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).<span style="color:Blue; Stop()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button5_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button6_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button6.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(ComboBox1.Text)
ListBox3.Items.Clear()
ComboBox1.Items.Clear()
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.History
ListBox3.Items.Add(Item)
ComboBox1.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Timer1_Tick(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Timer1.Tick
ToolStripStatusLabel1.Text = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ListBox1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ListBox1.Click
WinPlayer1.URL = ListBox1.SelectedItem
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button7_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button7.Click
OpenFileDialog1.ShowDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub BindingSource1_CurrentChanged(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles BindingSource1.CurrentChanged
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub OpenFileDialog1_FileOk(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.ComponentModel.CancelEventArgs) <span style="color:Blue; Handles OpenFileDialog1.FileOk
BindingSource1.Add(OpenFileDialog1.FileName)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub AddMusicToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles AddMusicToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub HidePlayerToolStripMenuItem_Click_1(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles HidePlayerToolStripMenuItem.Click
Panel1.Hide()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub TabControl1_MouseClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles TabControl1.MouseClick
<span style="color:Blue; Me.Text = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
thisurl = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub TabControl1_SelectedIndexChanged(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles TabControl1.SelectedIndexChanged
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub HidePlayerToolStripMenuItem1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles HidePlayerToolStripMenuItem1.Click
Panel1.Hide()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ShowPlayerToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ShowPlayerToolStripMenuItem.Click
Panel1.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ComboBox1_KeyDown(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.KeyEventArgs) <span style="color:Blue; Handles ComboBox1.KeyDown
<span style="color:Blue; If e.KeyCode = Keys.Enter <span style="color:Blue; Then
Button6.PerformClick()
<span style="color:Blue; My.Settings.History.Add(ComboBox1.Text)
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If e.KeyCode = Keys.Right <span style="color:Blue; Then
<span style="color:Blue; If GoogleToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ComboBox1.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Green; BindingSource3.Add("Google Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ComboBox1.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YahooToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ComboBox1.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Green; BindingSource3.Add("Yahoo Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ComboBox1.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YouTubeToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ComboBox1.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Green; BindingSource3.Add("YouTube Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ComboBox1.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If BingToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.bing.com/search?q=" & ComboBox1.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Green; BindingSource3.Add("Bing Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.bing.com/search?q=" & ComboBox1.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.SearchHistory
ListBox4.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button8_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button8.Click
Panel2.Show()
Button8.Hide()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button11_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button11.Click
Panel2.Hide()
Button8.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ViewToolStripMenuItem1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ViewToolStripMenuItem1.Click
Panel2.Show()
Button8.Hide()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub HideToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles HideToolStripMenuItem.Click
Panel2.Hide()
Button8.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel1_MouseDown(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles Panel1.MouseDown
Timer2.Enabled = <span style="color:Blue; True
timer2.Start()
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Green; Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
<span style="color:Green; If MouseIsDown Then
<span style="color:Green; Initiate dragging.
<span style="color:Green; DoDragDrop(WinPlayer1, DragDropEffects.Copy)
<span style="color:Green; End If
<span style="color:Green; MouseIsDown = False
<span style="color:Green; End Sub
<span style="color:Green; Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
<span style="color:Green; End Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button9_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button9.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Show()
<span style="color:Blue; My.Settings.Bookmarks.Add(ComboBox1.Text.ToString)
ListBox2.Items.Clear()
<span style="color:Blue; For <span style="color:Blue; Each item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.Bookmarks
ListBox2.Items.Add(item)
<span style="color:Blue; Next
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button10_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button10.Click
<span style="color:Blue; My.Settings.Bookmarks.Clear()
ListBox2.Items.Clear()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ListBox2_DoubleClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ListBox2.DoubleClick
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ListBox2.Text)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub PrintToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles PrintToolStripMenuItem.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub PrintPreviewToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles PrintPreviewToolStripMenuItem.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintPreviewDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button12_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button12.Click
<span style="color:Blue; If GoogleToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ComboBox1.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Green; BindingSource3.Add("Google Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
ListBox4.Items.Clear()
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ComboBox1.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YahooToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ComboBox1.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Green; BindingSource3.Add("Yahoo Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ComboBox1.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YouTubeToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ComboBox1.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Green; BindingSource3.Add("YouTube Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ComboBox1.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If BingToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.bing.com/search?q=" & ComboBox1.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Green; BindingSource3.Add("Bing Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.bing.com/search?q=" & ComboBox1.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel1_MouseUp(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles Panel1.MouseUp
Timer2.<span style="color:Blue; Stop()
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub setpositions()
panloc = Panel1.Location
panloc2 = Panel2.Location
curloc = System.Windows.Forms.Cursor.Position
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Timer2_Tick(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Timer2.Tick
Panel1.Location = panloc - curloc + System.Windows.Forms.Cursor.Position
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub GoogleToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles GoogleToolStripMenuItem.Click
<span style="color:Blue; If GoogleToolStripMenuItem.Checked <span style="color:Blue; Then
YahooToolStripMenuItem.CheckState = CheckState.Unchecked
BingToolStripMenuItem.CheckState = CheckState.Unchecked
YouTubeToolStripMenuItem.CheckState = CheckState.Unchecked
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub YahooToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles YahooToolStripMenuItem.Click
<span style="color:Blue; If YahooToolStripMenuItem.Checked <span style="color:Blue; Then
YouTubeToolStripMenuItem.CheckState = CheckState.Unchecked
GoogleToolStripMenuItem.CheckState = CheckState.Unchecked
BingToolStripMenuItem.CheckState = CheckState.Unchecked
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub YouTubeToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles YouTubeToolStripMenuItem.Click
<span style="color:Blue; If YouTubeToolStripMenuItem.Checked <span style="color:Blue; Then
GoogleToolStripMenuItem.CheckState = CheckState.Unchecked
YahooToolStripMenuItem.CheckState = CheckState.Unchecked
BingToolStripMenuItem.CheckState = CheckState.Unchecked
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Green; Private Sub colorset()
<span style="color:Green; If NorToolStripMenuItem.Checked Then
<span style="color:Green; End If
<span style="color:Green; End Sub
<span style="color:Blue; Private <span style="color:Blue; Sub SavePageAsToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles SavePageAsToolStripMenuItem.Click
<span style="color:Blue; Try
<span style="color:Blue; Dim SaveFileDialog1 <span style="color:Blue; As <span style="color:Blue; New SaveFileDialog
SaveFileDialog1.Title = <span style="color:#A31515; "Save Page"
SaveFileDialog1.Filter = <span style="color:#A31515; "Internet Page (*.html)|*.htm|All Files|*.*"
SaveFileDialog1.ShowDialog()
<span style="color:Blue; If SaveFileDialog1.FileName <> <span style="color:#A31515; "" <span style="color:Blue; Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentText)
FileClose(1)
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; Catch ex <span style="color:Blue; As Exception
<span style="color:Green; Show an error
MessageBox.Show(<span style="color:#A31515; "Error - Could not open the save file dialog.", <span style="color:Blue; Me.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.<span style="color:Blue; Error)
<span style="color:Blue; End <span style="color:Blue; Try
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Green; Private Sub ViewSourceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewSourceToolStripMenuItem.Click
<span style="color:Green; Form3.TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentText
<span style="color:Green; Form3.Show()
<span style="color:Green; End Sub
<span style="color:Blue; Private <span style="color:Blue; Sub AboutToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles AboutToolStripMenuItem.Click
AboutBox1.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub NewWindowToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles NewWindowToolStripMenuItem.Click
<span style="color:Blue; Try : Shell(<span style="color:#A31515; "JSjolt.exe")
<span style="color:Blue; Catch ex <span style="color:Blue; As IO.FileNotFoundException : MessageBox.Show(<span style="color:#A31515; "Error - File missing from directory!", <span style="color:Blue; Me.Text, MessageBoxButtons.OK, MessageBoxIcon.<span style="color:Blue; Error)
<span style="color:Blue; Catch ex <span style="color:Blue; As Exception : <span style="color:Blue; End <span style="color:Blue; Try
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub BingToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles BingToolStripMenuItem.Click
GoogleToolStripMenuItem.CheckState = CheckState.Unchecked
YahooToolStripMenuItem.CheckState = CheckState.Unchecked
YouTubeToolStripMenuItem.CheckState = CheckState.Unchecked
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ComboBox1_DoubleClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ComboBox1.SelectedIndexChanged
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ListBox3_DoubleClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ListBox3.DoubleClick
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ListBox3.Text)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ListBox4_DoubleClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ListBox4.DoubleClick
<span style="color:Blue; If GoogleToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ListBox4.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YahooToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ListBox4.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YouTubeToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ListBox4.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If BingToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.bing.com/search?q=" & ListBox4.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button14_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
Form4.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button13_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button13.Click
Panel2.Hide()
Button8.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button15_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button15.Click
Panel2.Hide()
Button8.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Timer3_Tick(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Timer3.Tick
Panel2.Location = panloc2 - curloc + System.Windows.Forms.Cursor.Position
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel2_MouseDown(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles Panel2.MouseDown
Timer3.Enabled = <span style="color:Blue; True
Timer3.Start()
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel2_MouseUp(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles Panel2.MouseUp
Timer3.<span style="color:Blue; Stop()
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel2_Paint(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.PaintEventArgs) <span style="color:Blue; Handles Panel2.Paint
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub BackgroundWorker1_DoWork(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.ComponentModel.DoWorkEventArgs) <span style="color:Blue; Handles BackgroundWorker1.DoWork
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.History
ListBox3.Items.Add(Item)
ComboBox1.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.Bookmarks
ListBox2.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.SearchHistory
ListBox4.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Green; Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged
<span style="color:Green; If ListBox3.Text = "Clear All History" Then
<span style="color:Green; My.Settings.History.Clear()
<span style="color:Green; End If
<span style="color:Green; If ListBox3.Text = "Clear All History" Then
<span style="color:Green; ListBox3.Items.Clear()
<span style="color:Green; End If
<span style="color:Green; End Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button16_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button16.Click
Form4.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub AddNewToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles AddNewToolStripMenuItem.Click
Form5.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton1.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton2_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton2.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton3_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton3.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton4_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton4.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).<span style="color:Blue; Stop()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton5_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton5.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ClearHistoryToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ClearHistoryToolStripMenuItem.Click
Form6.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; End <span style="color:Blue; Class
[/code]
Thanks so much for the help!!!<br/>
<br/>
View the full article
key is pressed but I cant get this to work when a user clicks a link. Any help on this would be greatly appreciated! here is my code so far:
<div style="color:Black;background-color:White; <pre>
<span style="color:Blue; Public <span style="color:Blue; Class Form1
<span style="color:Blue; Dim int <span style="color:Blue; As <span style="color:Blue; Integer = 0
<span style="color:Blue; Dim tabs
<span style="color:Blue; Public thisurl
<span style="color:Blue; Dim panloc <span style="color:Blue; As <span style="color:Blue; New Point(0, 0)
<span style="color:Blue; Dim panloc2 <span style="color:Blue; As <span style="color:Blue; New Point(0, 0)
<span style="color:Blue; Dim curloc <span style="color:Blue; As <span style="color:Blue; New Point(0, 0)
<span style="color:Blue; Private MouseIsDown <span style="color:Blue; As <span style="color:Blue; Boolean = <span style="color:Blue; False
<span style="color:Blue; Private <span style="color:Blue; Sub Loading(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As Windows.Forms.WebBrowserProgressChangedEventArgs)
ToolStripProgressBar1.Maximum = e.MaximumProgress
<span style="color:Green; ToolStripProgressBar1.Value = e.CurrentProgress
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Done(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
TabControl1.SelectedTab.Text = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
ComboBox1.Text = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Form1_FormClosing(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.FormClosingEventArgs) <span style="color:Blue; Handles <span style="color:Blue; Me.FormClosing
<span style="color:Blue; For FadeOut = 90 <span style="color:Blue; To 10 <span style="color:Blue; Step -30
<span style="color:Blue; Me.Opacity = FadeOut / 100
<span style="color:Blue; Me.Refresh()
Threading.Thread.Sleep(50)
<span style="color:Blue; Next
<span style="color:Blue; End
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Form1_Load(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles <span style="color:Blue; MyBase.Load
<span style="color:Blue; Dim ImageList1 <span style="color:Blue; As <span style="color:Blue; New ImageList
<span style="color:Blue; Dim Browser <span style="color:Blue; As <span style="color:Blue; New WebBrowser
TabControl1.TabPages.Add(<span style="color:#A31515; "New Page")
Browser.Name = <span style="color:#A31515; "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
<span style="color:Blue; AddHandler Browser.ProgressChanged, <span style="color:Blue; AddressOf Loading
<span style="color:Blue; AddHandler Browser.DocumentCompleted, <span style="color:Blue; AddressOf Done
int = int + 1
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.History
ListBox3.Items.Add(Item)
ComboBox1.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.Bookmarks
ListBox2.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.SearchHistory
ListBox4.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; If <span style="color:Blue; My.Settings.StartWithHomePage <span style="color:Blue; AndAlso _
<span style="color:Blue; Not <span style="color:Blue; String.IsNullOrEmpty(<span style="color:Blue; My.Settings.HomePage) <span style="color:Blue; Then
<span style="color:Green; Load the home page.
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:Blue; My.Settings.HomePage) <span style="color:Green;
<span style="color:Blue; End <span style="color:Blue; If
Timer1.Interval = <span style="color:#A31515; "1"
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub AddTabToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles AddTabToolStripMenuItem.Click
<span style="color:Blue; Dim Browser <span style="color:Blue; As <span style="color:Blue; New WebBrowser
TabControl1.TabPages.Add(<span style="color:#A31515; "New Page")
TabControl1.SelectTab(int)
Browser.Name = <span style="color:#A31515; "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
<span style="color:Blue; AddHandler Browser.ProgressChanged, <span style="color:Blue; AddressOf Loading
<span style="color:Blue; AddHandler Browser.DocumentCompleted, <span style="color:Blue; AddressOf Done
int = int + 1
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub RemoveTabToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles RemoveTabToolStripMenuItem.Click
<span style="color:Blue; If <span style="color:Blue; Not TabControl1.TabPages.<span style="color:Blue; Count = 1 <span style="color:Blue; Then
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPages.<span style="color:Blue; Count - 1)
int = int - 1
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub WebsitePropertiesToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles WebsitePropertiesToolStripMenuItem.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button2_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button3_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button4_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).<span style="color:Blue; Stop()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button5_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button6_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button6.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(ComboBox1.Text)
ListBox3.Items.Clear()
ComboBox1.Items.Clear()
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.History
ListBox3.Items.Add(Item)
ComboBox1.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Timer1_Tick(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Timer1.Tick
ToolStripStatusLabel1.Text = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ListBox1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ListBox1.Click
WinPlayer1.URL = ListBox1.SelectedItem
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button7_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button7.Click
OpenFileDialog1.ShowDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub BindingSource1_CurrentChanged(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles BindingSource1.CurrentChanged
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub OpenFileDialog1_FileOk(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.ComponentModel.CancelEventArgs) <span style="color:Blue; Handles OpenFileDialog1.FileOk
BindingSource1.Add(OpenFileDialog1.FileName)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub AddMusicToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles AddMusicToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub HidePlayerToolStripMenuItem_Click_1(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles HidePlayerToolStripMenuItem.Click
Panel1.Hide()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub TabControl1_MouseClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles TabControl1.MouseClick
<span style="color:Blue; Me.Text = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
thisurl = <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub TabControl1_SelectedIndexChanged(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles TabControl1.SelectedIndexChanged
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub HidePlayerToolStripMenuItem1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles HidePlayerToolStripMenuItem1.Click
Panel1.Hide()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ShowPlayerToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ShowPlayerToolStripMenuItem.Click
Panel1.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ComboBox1_KeyDown(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.KeyEventArgs) <span style="color:Blue; Handles ComboBox1.KeyDown
<span style="color:Blue; If e.KeyCode = Keys.Enter <span style="color:Blue; Then
Button6.PerformClick()
<span style="color:Blue; My.Settings.History.Add(ComboBox1.Text)
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If e.KeyCode = Keys.Right <span style="color:Blue; Then
<span style="color:Blue; If GoogleToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ComboBox1.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Green; BindingSource3.Add("Google Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ComboBox1.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YahooToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ComboBox1.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Green; BindingSource3.Add("Yahoo Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ComboBox1.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YouTubeToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ComboBox1.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Green; BindingSource3.Add("YouTube Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ComboBox1.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If BingToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.bing.com/search?q=" & ComboBox1.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Green; BindingSource3.Add("Bing Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.bing.com/search?q=" & ComboBox1.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.SearchHistory
ListBox4.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button8_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button8.Click
Panel2.Show()
Button8.Hide()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button11_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button11.Click
Panel2.Hide()
Button8.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ViewToolStripMenuItem1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ViewToolStripMenuItem1.Click
Panel2.Show()
Button8.Hide()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub HideToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles HideToolStripMenuItem.Click
Panel2.Hide()
Button8.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel1_MouseDown(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles Panel1.MouseDown
Timer2.Enabled = <span style="color:Blue; True
timer2.Start()
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Green; Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
<span style="color:Green; If MouseIsDown Then
<span style="color:Green; Initiate dragging.
<span style="color:Green; DoDragDrop(WinPlayer1, DragDropEffects.Copy)
<span style="color:Green; End If
<span style="color:Green; MouseIsDown = False
<span style="color:Green; End Sub
<span style="color:Green; Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
<span style="color:Green; End Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button9_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button9.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Show()
<span style="color:Blue; My.Settings.Bookmarks.Add(ComboBox1.Text.ToString)
ListBox2.Items.Clear()
<span style="color:Blue; For <span style="color:Blue; Each item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.Bookmarks
ListBox2.Items.Add(item)
<span style="color:Blue; Next
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button10_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button10.Click
<span style="color:Blue; My.Settings.Bookmarks.Clear()
ListBox2.Items.Clear()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ListBox2_DoubleClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ListBox2.DoubleClick
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ListBox2.Text)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub PrintToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles PrintToolStripMenuItem.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub PrintPreviewToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles PrintPreviewToolStripMenuItem.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintPreviewDialog()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button12_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button12.Click
<span style="color:Blue; If GoogleToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ComboBox1.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Green; BindingSource3.Add("Google Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
ListBox4.Items.Clear()
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ComboBox1.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YahooToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ComboBox1.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Green; BindingSource3.Add("Yahoo Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ComboBox1.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YouTubeToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ComboBox1.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Green; BindingSource3.Add("YouTube Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ComboBox1.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If BingToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.bing.com/search?q=" & ComboBox1.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; My.Settings.SearchHistory.Add(ComboBox1.Text)
<span style="color:Green; BindingSource3.Add("Bing Search: " & ComboBox1.Text)
<span style="color:Blue; My.Settings.History.Add(<span style="color:#A31515; "http://www.bing.com/search?q=" & ComboBox1.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel1_MouseUp(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles Panel1.MouseUp
Timer2.<span style="color:Blue; Stop()
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub setpositions()
panloc = Panel1.Location
panloc2 = Panel2.Location
curloc = System.Windows.Forms.Cursor.Position
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Timer2_Tick(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Timer2.Tick
Panel1.Location = panloc - curloc + System.Windows.Forms.Cursor.Position
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub GoogleToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles GoogleToolStripMenuItem.Click
<span style="color:Blue; If GoogleToolStripMenuItem.Checked <span style="color:Blue; Then
YahooToolStripMenuItem.CheckState = CheckState.Unchecked
BingToolStripMenuItem.CheckState = CheckState.Unchecked
YouTubeToolStripMenuItem.CheckState = CheckState.Unchecked
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub YahooToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles YahooToolStripMenuItem.Click
<span style="color:Blue; If YahooToolStripMenuItem.Checked <span style="color:Blue; Then
YouTubeToolStripMenuItem.CheckState = CheckState.Unchecked
GoogleToolStripMenuItem.CheckState = CheckState.Unchecked
BingToolStripMenuItem.CheckState = CheckState.Unchecked
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub YouTubeToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles YouTubeToolStripMenuItem.Click
<span style="color:Blue; If YouTubeToolStripMenuItem.Checked <span style="color:Blue; Then
GoogleToolStripMenuItem.CheckState = CheckState.Unchecked
YahooToolStripMenuItem.CheckState = CheckState.Unchecked
BingToolStripMenuItem.CheckState = CheckState.Unchecked
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Green; Private Sub colorset()
<span style="color:Green; If NorToolStripMenuItem.Checked Then
<span style="color:Green; End If
<span style="color:Green; End Sub
<span style="color:Blue; Private <span style="color:Blue; Sub SavePageAsToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles SavePageAsToolStripMenuItem.Click
<span style="color:Blue; Try
<span style="color:Blue; Dim SaveFileDialog1 <span style="color:Blue; As <span style="color:Blue; New SaveFileDialog
SaveFileDialog1.Title = <span style="color:#A31515; "Save Page"
SaveFileDialog1.Filter = <span style="color:#A31515; "Internet Page (*.html)|*.htm|All Files|*.*"
SaveFileDialog1.ShowDialog()
<span style="color:Blue; If SaveFileDialog1.FileName <> <span style="color:#A31515; "" <span style="color:Blue; Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, <span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentText)
FileClose(1)
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; Catch ex <span style="color:Blue; As Exception
<span style="color:Green; Show an error
MessageBox.Show(<span style="color:#A31515; "Error - Could not open the save file dialog.", <span style="color:Blue; Me.Text, MessageBoxButtons.RetryCancel, MessageBoxIcon.<span style="color:Blue; Error)
<span style="color:Blue; End <span style="color:Blue; Try
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Green; Private Sub ViewSourceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewSourceToolStripMenuItem.Click
<span style="color:Green; Form3.TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentText
<span style="color:Green; Form3.Show()
<span style="color:Green; End Sub
<span style="color:Blue; Private <span style="color:Blue; Sub AboutToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles AboutToolStripMenuItem.Click
AboutBox1.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub NewWindowToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles NewWindowToolStripMenuItem.Click
<span style="color:Blue; Try : Shell(<span style="color:#A31515; "JSjolt.exe")
<span style="color:Blue; Catch ex <span style="color:Blue; As IO.FileNotFoundException : MessageBox.Show(<span style="color:#A31515; "Error - File missing from directory!", <span style="color:Blue; Me.Text, MessageBoxButtons.OK, MessageBoxIcon.<span style="color:Blue; Error)
<span style="color:Blue; Catch ex <span style="color:Blue; As Exception : <span style="color:Blue; End <span style="color:Blue; Try
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub BingToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles BingToolStripMenuItem.Click
GoogleToolStripMenuItem.CheckState = CheckState.Unchecked
YahooToolStripMenuItem.CheckState = CheckState.Unchecked
YouTubeToolStripMenuItem.CheckState = CheckState.Unchecked
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ComboBox1_DoubleClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ComboBox1.SelectedIndexChanged
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ListBox3_DoubleClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ListBox3.DoubleClick
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ListBox3.Text)
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ListBox4_DoubleClick(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ListBox4.DoubleClick
<span style="color:Blue; If GoogleToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.google.com/search?hl=en&q=" & ListBox4.Text & <span style="color:#A31515; "&btnG=Google+Search&meta=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YahooToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://search.yahoo.com/search?p=" & ListBox4.Text & <span style="color:#A31515; "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8&fp_ip=IN&vc=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If YouTubeToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.youtube.com/results?search_query=" & ListBox4.Text & <span style="color:#A31515; "&search_type=&aq=-1&oq=")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; If BingToolStripMenuItem.Checked <span style="color:Blue; Then
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(<span style="color:#A31515; "http://www.bing.com/search?q=" & ListBox4.Text & <span style="color:#A31515; "&go=&form=QBLH&filt=all")
<span style="color:Blue; End <span style="color:Blue; If
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button14_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs)
Form4.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button13_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button13.Click
Panel2.Hide()
Button8.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button15_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button15.Click
Panel2.Hide()
Button8.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Timer3_Tick(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Timer3.Tick
Panel2.Location = panloc2 - curloc + System.Windows.Forms.Cursor.Position
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel2_MouseDown(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles Panel2.MouseDown
Timer3.Enabled = <span style="color:Blue; True
Timer3.Start()
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel2_MouseUp(<span style="color:Blue; ByVal sender <span style="color:Blue; As <span style="color:Blue; Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.MouseEventArgs) <span style="color:Blue; Handles Panel2.MouseUp
Timer3.<span style="color:Blue; Stop()
setpositions()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Panel2_Paint(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.Windows.Forms.PaintEventArgs) <span style="color:Blue; Handles Panel2.Paint
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub BackgroundWorker1_DoWork(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.ComponentModel.DoWorkEventArgs) <span style="color:Blue; Handles BackgroundWorker1.DoWork
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.History
ListBox3.Items.Add(Item)
ComboBox1.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.Bookmarks
ListBox2.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; For <span style="color:Blue; Each Item <span style="color:Blue; As <span style="color:Blue; String <span style="color:Blue; In <span style="color:Blue; My.Settings.SearchHistory
ListBox4.Items.Add(Item)
<span style="color:Blue; Next
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Green; Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged
<span style="color:Green; If ListBox3.Text = "Clear All History" Then
<span style="color:Green; My.Settings.History.Clear()
<span style="color:Green; End If
<span style="color:Green; If ListBox3.Text = "Clear All History" Then
<span style="color:Green; ListBox3.Items.Clear()
<span style="color:Green; End If
<span style="color:Green; End Sub
<span style="color:Blue; Private <span style="color:Blue; Sub Button16_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles Button16.Click
Form4.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub AddNewToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles AddNewToolStripMenuItem.Click
Form5.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton1_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton1.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton2_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton2.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton3_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton3.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton4_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton4.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).<span style="color:Blue; Stop()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ToolStripButton5_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ToolStripButton5.Click
<span style="color:Blue; CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; Private <span style="color:Blue; Sub ClearHistoryToolStripMenuItem_Click(<span style="color:Blue; ByVal sender <span style="color:Blue; As System.Object, <span style="color:Blue; ByVal e <span style="color:Blue; As System.EventArgs) <span style="color:Blue; Handles ClearHistoryToolStripMenuItem.Click
Form6.Show()
<span style="color:Blue; End <span style="color:Blue; Sub
<span style="color:Blue; End <span style="color:Blue; Class
[/code]
Thanks so much for the help!!!<br/>
<br/>
View the full article