[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] Button1_Click([COLOR=BLUE]ByVal[/COLOR] sender [COLOR=BLUE]As[/COLOR] System.Object, [COLOR=BLUE]ByVal[/COLOR] e [COLOR=BLUE]As[/COLOR] System.EventArgs) [COLOR=BLUE]Handles[/COLOR] Button1.Click
[COLOR=BLUE]Dim[/COLOR] objBrowser [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Object[/COLOR] = CreateObject("InternetExplorer.Application")
[COLOR=BLUE]Dim[/COLOR] IE [COLOR=BLUE]As[/COLOR] SHDocVw.InternetExplorer = [COLOR=BLUE]DirectCast[/COLOR](objBrowser, SHDocVw.InternetExplorer)
[COLOR=GREEN]'/// reference to Microsoft Internet Controls required this way.
[/COLOR] [COLOR=BLUE]With[/COLOR] IE
.ToolBar = [COLOR=BLUE]False[/COLOR] [COLOR=GREEN]'/// no toolbar, so the user cant specify urls.
[/COLOR] .Height = 500
.Width = 500
.Visible = [COLOR=BLUE]True
[/COLOR] .Navigate(ComboBox1.Text)
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With
[/COLOR] [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub
[/COLOR] [COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] Button2_Click([COLOR=BLUE]ByVal[/COLOR] sender [COLOR=BLUE]As[/COLOR] System.Object, [COLOR=BLUE]ByVal[/COLOR] e [COLOR=BLUE]As[/COLOR] System.EventArgs) [COLOR=BLUE]Handles[/COLOR] Button2.Click
[COLOR=BLUE]Dim[/COLOR] objBrowser [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Object[/COLOR] = CreateObject("InternetExplorer.Application")
[COLOR=GREEN]'/// without a reference to Microsoft Internet Controls, may cause a problem with Option Strict On.
[/COLOR] [COLOR=BLUE]With[/COLOR] objBrowser
.ToolBar = [COLOR=BLUE]False[/COLOR] [COLOR=GREEN]'/// no toolbar, so the user cant specify urls.
[/COLOR] .Height = 500
.Width = 500
.Visible = [COLOR=BLUE]True
[/COLOR] .Navigate(ComboBox1.Text)
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With
[/COLOR] [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]