Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxWebBrowser1.Navigate("file://D:\WindowsApplication1\TestPage.html")
End Sub

Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete
    Dim returnValue As Object
    Dim ObjArr(1) As Object
    ObjArr(0) = CObj(New String("Pippo"))
                
    MessageBox.Show("Pagina completata!")
        
    Try
        returnValue = AxWebBrowser1.Document.InvokeScript("DisplayName", ObjArr)
    Catch ex As System.Runtime.InteropServices.MarshalDirectiveException
        MessageBox.Show("Impossibile eseguire lo script " & ex.Message)
    Finally
        MessageBox.Show("Fine!")
    End Try

        
End Sub