webBrowserVB

Imports Microsoft.Web.WebView2.Core

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WebBrowser1.Source = New Uri("https://www.google.com")

    End Sub

    Private Async Sub WebBrowser1_NavigationCompleted(sender As Object, e As CoreWebView2NavigationCompletedEventArgs) Handles WebBrowser1.NavigationCompleted
        Await Task.Delay(1500)

        ' Enter "cat" and submit the search
        Dim script As String =
            "document.querySelector('textarea[name=""q""]').value='cat';" &
            "document.querySelector('form').submit();"

        Await WebBrowser1.ExecuteScriptAsync(script)

    End Sub