Public Class Form1
 
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles Me.Load
      Me.WebBrowser1.Url = New Uri("about:blank")
   End Sub
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Try
         Me.WebBrowser1.Url = New Uri(Me.TextBox1.Text)
      Catch ex As Exception
         MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
           MessageBoxIcon.Error)
      End Try
   End Sub
 
End Class

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