Controlar Error en el WebBrowser VB60

[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