Private Sub Form_Load()
   WebBrowser1.Navigate2 "www.blablupp.de"
End Sub
 
Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, _
   URL As Variant, _
   Frame As Variant, _
   StatusCode As Variant, _
   Cancel As Boolean)
 
   MsgBox "Falsche URL: " & URL
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control