Free download this tutorial link below
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
fxb.Navigate("http://www.vbdotnet3school.blogspot.com")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
fxb.GoBack()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
fxb.GoForward()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
fxb.Navigate(ComboBox1.Text)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Skybound.Gecko.GeckoPreferences.User("network.proxy.type") = 1
Skybound.Gecko.GeckoPreferences.User("network.proxy.share_proxy_settings") = True
Skybound.Gecko.GeckoPreferences.User("network.proxy.http") = TextBox1.Text
If TextBox2.Text = 80 Then
Skybound.Gecko.GeckoPreferences.User("network.proxy.http_port") = 80
ElseIf TextBox2.Text = 3128 Then
Skybound.Gecko.GeckoPreferences.User("network.proxy.http_port") = 3128
ElseIf TextBox2.Text = 8080 Then
Skybound.Gecko.GeckoPreferences.User("network.proxy.http_port") = 8080
ElseIf TextBox2.Text = 8085 Then
Skybound.Gecko.GeckoPreferences.User("network.proxy.http_port") = 8085
End If
Skybound.Gecko.GeckoPreferences.User("network.proxy.https_remote_dns") = True
End Sub
End Class
