Controlar Error en el WebBrowser VB60

[MaximoAntonio2004]

Buenas Quicira por favor que alguien me ayudara a controlar un error que sale cuando esta cargando una pagina web en un control webbrowser del VB60:
el error es este: "Error en tiempo de ejecución. ¿Desea depurarlo?"

Quiciera que no mostrara esos errores. cuando cargo la pagina en el IE. no salen esos errores pero cuando cargo esa misma pagina en una aplicacion vb60 en el control webbrowser NUEVAMENTE SALE ESE ERROR DE DEPURACION. helpmeeeeeeeeeeeeeeeeeee.

Gracias. muchas gracias.

[seba123neo]

Hola,puede haber muchas formas de "agarrar" el error,el mismo webbrowser tiene un evento llamado NavigateError() o algo asi,y ahi podes poner un mensaje para que avise que la pagina no se cargo o hubo un error en la carga,otra posibilidad es usar On error Goto ..... para agarrar el numero del error y hacer lo que vos quieras y que no se pare la ejecucion del programa,a mi nunca me salio ese error,me extraña la pregunta que te hace el visual( ¿Desea depurarlo?"),me gustaria ver la ventana del error,si no te molesta pone una captura de la ventana del error...aunque me temo que es la famosa ventana de comandos del debugger del internet explorer,si llegara a ser eso,lo unico que tendrias que hacer seria seleccionar una opcion como lo dice esta imagen:



saludos.

[MaximoAntonio2004]

Holas seba123neo
Gracias por tu Ayuda.

ok tonces te mando el codigo.

[seba123neo]

y el codigo donde esta ? yo veo el .exe nomas....

[MaximoAntonio2004]

Holas seba123neo Gracias por tu pronta respuesta.
Bueno este es el codigo que uso.
Pero el error que sale no es de VB60 sino parece ser de la pagina Web ya que cuando uno abre la misma pagina web en el Internet Explorer no sale ningun error pero en el webbrowser del VB60 si Sale error...
Gracias


Dim i As Integer

Private Sub Form_Load()

Webs123.Navigate "pagina web"
Call QuitartabStop
End Sub

Private Sub Webs123_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
'Mostramos la url que se está cargando en el combo
cbodir = Webs123.LocationURL

'Agregamos la url al combo
cbodir.AddItem Webs123.LocationURL
End Sub

Private Sub QuitartabStop()
On Error Resume Next
Dim i As Integer, ctl As Control

For Each ctl In Me.Controls
'Deshabilitamos la propiedad TabStop de todos los controles, exepto del control WebBrowser
'y del control cboDir (barra de direcciones)
If Not TypeOf ctl Is WebBrowser And Not TypeOf ctl Is ComboBox Then
ctl.TabStop = False
End If
Next ctl
'Ponemos el botón que bavega (cboNavigate) con la propiedad Default en True
CMDEjecutar.Default = True
End Sub