Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
	 Handles Button1.Click
		Dim win As HtmlWindow = WebBrowser1.Document.Window
		Dim mshtmlWin2 As mshtml.IHTMLWindow2 = CType(win.DomWindow, _
  mshtml.IHTMLWindow2)
		Dim script As String = "alert('Hallo Welt');"
		mshtmlWin2.execScript(script)
	End Sub