Crear un navegador Web o WebBrowser en Visual Basic

Aqui les comparto un truquito que encontre en un foro.
Bueno en esta entrega muestro como hacer un navegador web en VB y el funcionamiento del control WebBrowser.
Primero el funcionamiento del control:

WebBrowser1.GoBack: Manda a la Pagina anterior visitada (ir atras)
WebBrowser1.GoForward: Manda a la Pagina siguiente visitada (ir adelante)
WebBrowser1.Stop: Detiene la navegacion activa en el control WebBrowser
WebBrowser1.Refresh:  Actualiza la pagina actual en el WebBrowser
WebBrowser1.LocationName: Es el Nombre de la Web Actual en el WebBrowser
WebBrowser1.Navigate: Le Dice a el WebBrowser que navege una determinada web
uso: WebBrowser1.Navigate http://www.google.com.mx
WebBrowser1.GoSearch: Va a El buscador predeterminado en IE
WebBrowser1.GoHome: Va a la pagina Principal establecida en IE
WebBrowser1.LocationURL: Es la url Actual en el WebBrowser
WebBrowser1.Offline: Activa o desactiva la funcion de navegacion Offline en nuestro navegador
uso: 
WebBrowser1.Offline= True (o false)
WebBrowser1.Visible: muestra o oculta el control WebBrowser1 (esta funcion sirve en casi todos los demas controles de VB)
uso: WebBrowser1.Visible = True (o False)
WebBrowser1.Silent: Activa o Desactiva la navegacion silecionsa (si no me equivoco XD)
uso: WebBrowser1.Silent = Tre ( o False)

Bueno estos son los mas importantes ahora pasemos a el manual de creacion del navegador web:
Primero que nada cargamos un nuevo form despues para hacer un navegador VB simple necesitamos:

1. 1 Texbox que servira de barra de direccion
2. 1 control WebBrowser
3. 5 botones y por ultimo
4. 1 label en el cual escribiremos el estado del navegador

Primero el control WebBrowser no nos aparese en el toolbox para integrarlo tenemos que ir a Proyecto > Componentes

Buscamos y marcamos la flecha del control "Microsoft Internet Control"

Insertamos todos los controles y nos deberia quedar algo similar a esto:

Bueno ahora va el codigo fuente con explicacion y todo:

Private Sub Command1_Click()
WebBrowser1.GoBack 'hace que el control WebBrowser1 navege atras
End Sub

Private Sub Command2_Click()
WebBrowser1.GoForward 'hace que el control WebBrowser1 navege adelante
End Sub

Private Sub Command3_Click()
WebBrowser1.Refresh ' le dice al control WebBrowser1 que actualize la pagina
End Sub

Private Sub Command4_Click()
Label1.Caption = "Cargando..." 'Pone de Caption en el label1 el texto "Cargando..."
WebBrowser1.Navigate Text1.Text 'le dice a el control WebBrowser1 que navegue la web escrita en el texbox1
End Sub

Private Sub Command5_Click()
WebBrowser1.Stop 'Detenie el control WebBrowser1
End Sub
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) 'esto ocurre cuando el control WebBrowser1 cambia de estado
Me.Caption = WebBrowser1.LocationName & " - Navegador By Thera" 'Pone de titulo del navegador el nombre de la web y el texto " - Navegador By Thera"
End Sub

Private Sub WebBrowser1_DownloadComplete() 'esto pasa cuando se carga la web correctamente
Label1.Caption = "Listo" 'Pone de caption en el label1 Listo
End Sub

Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean) ' cuando hay error en el control antes nombrado se carga esto
Label1.Caption = "Error?" 'pone de caption Error? en la label1
End Sub