Imports Skybound.Gecko
Imports System.Net

Public Class Form1

    Public Sub New()

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Xpcom.Initialize(".\xulrunner\")
        GeckoWebBrowser1 = New GeckoWebBrowser()
        GeckoWebBrowser1.CreateControl()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not TextBox1.Text.Equals(String.Empty) And Not TextBox2.Text.Equals(String.Empty) Then
            Dim newProxy As Uri = New Uri("http://" & TextBox1.Text & "/")
            GeckoPreferences.Default("network.proxy.type") = 1
            GeckoPreferences.Default("network.proxy.http") = newProxy.Host
            GeckoPreferences.Default("network.proxy.http_port") = newProxy.Port
            'GeckoPreferences.Default("network.proxy.ssl") = proxyAddress.Host
            'GeckoPreferences.Default("network.proxy.ssl_port") = proxyAddress.Port
            GeckoWebBrowser1.Navigate(TextBox2.Text)
        End If
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

End Class