'// ---
	Private Const URL_A as String = "http://www.heise.de/"
	Private Const URL_B As String = "http://www.vbarchiv.de/"
	Private Const URL_C As String = "http://www.golem.de/"
 
	Private Sub NavigateTo(Url As String)
		me.webBrowser1.Navigate(url)
	End Sub
 
	Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		me.NavigateTo(URL_A)
	End Sub
 
	Sub Button2Click(ByVal sender As Object, ByVal e As EventArgs)
		me.NavigateTo(URL_B)
	End Sub
 
	Sub Button3Click(ByVal sender As Object, ByVal e As EventArgs)
		me.NavigateTo(URL_C)
	End Sub
 
	Sub WebBrowser1DocumentCompleted(ByVal sender As Object, _ 
		ByVal e As WebBrowserDocumentCompletedEventArgs)
		Select Case True
			Case (e.Url.Equals ( new Uri ( URL_A ))) '// >> heise.de
				DoSomething_A() '// TuWas A aufrufen
 
			Case (e.Url.Equals ( new Uri ( URL_B ))) '// >> vbarchiv.de
				DoSomething_B() '// TuWas B aufrufen
 
			Case (e.Url.Equals ( new Uri ( URL_C ))) '// >> golem.de
				DoSomething_C() '// TuWas C aufrufen
		End Select
	End Sub
 
	Private Sub DoSomething_A()
		Debug.WriteLine ("DoSomething_A")	
	End Sub
 
	Private Sub DoSomething_B()
		Debug.WriteLine ("DoSomething_B")	
	End Sub
 
	Private Sub DoSomething_C()
		Debug.WriteLine ("DoSomething_C")	
	End Sub
	'// ---