Снять фокус с формы

    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Const KEYEVENTF_KEYUP = &H2 ' событие отпускания клавиши
    Const VK_LWIN = &H5B '  эмулируюция нажатия кнопки ПУСК
 
    Private Sub Win()
        Call keybd_event(VK_LWIN, 0, 0, 0) 'Hажимаем WIN
        Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем WIN
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Win()
    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim frm As New Form2
    frm.Opacity = 0
    'frm.ControlBox = False
    'frm.FormBorderStyle = FormBorderStyle.None
    'frm.ShowInTaskbar = False
    frm.Show()
End Sub

Public Class Form2
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    Const MOUSEEVENTF_LEFTDOWN = &H2
    Const MOUSEEVENTF_LEFTUP = &H4
    Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Const MOUSEEVENTF_MIDDLEUP = &H40
    Const MOUSEEVENTF_MOVE = &H1
    Const MOUSEEVENTF_ABSOLUTE = &H8000
    Const MOUSEEVENTF_RIGHTDOWN = &H8
    Const MOUSEEVENTF_RIGHTUP = &H10
    
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim pos As Point = New Point(Cursor.Position)
        Cursor.Position = New Point(5000, 0)
        mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        Cursor.Position = pos
    End Sub
End Class

Imports System.Runtime.InteropServices
 
Public Class Form2
    <DllImport("USER32.DLL", CharSet:=CharSet.Unicode)>
    Public Shared Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
    End Function
 
    <DllImport("USER32.DLL")>
    Public Shared Function SetForegroundWindow(hWnd As IntPtr) As Boolean
    End Function
    
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim proc = Process.GetProcessesByName("notepad")
        For Each CurrentProcess In proc
            If CurrentProcess.MainWindowTitle.Contains("Блокнот") Then
                Dim handle = FindWindow(Nothing, CurrentProcess.MainWindowTitle)
                If handle = IntPtr.Zero Then
                    Return
                End If
                SetForegroundWindow(handle)
            End If
        Next
        SendKeys.Send("^a")
        SendKeys.Send("^c")
        TextBox1.Focus()
        SendKeys.Send("^v")
    End Sub
End Class

Imports System.Runtime.InteropServices
 
Public Class Form2
    <DllImport("USER32.DLL", CharSet:=CharSet.Unicode)>
    Public Shared Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
    End Function
 
    <DllImport("USER32.DLL")>
    Public Shared Function SetForegroundWindow(hWnd As IntPtr) As Boolean
    End Function
    
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        Dim proc = Process.GetProcessesByName("notepad")
        For Each CurrentProcess In proc
            If CurrentProcess.MainWindowTitle.Contains("Блокнот") Then
                Dim handle = FindWindow(Nothing, CurrentProcess.MainWindowTitle)
                If handle = IntPtr.Zero Then
                    Return
                End If
                SetForegroundWindow(handle)
            End If
        Next
        My.Computer.Keyboard.SendKeys("^a", True)
        My.Computer.Keyboard.SendKeys("^c")
        TextBox1.Focus()
        My.Computer.Keyboard.SendKeys("^v", True)
    End Sub
End Class

Imports Microsoft.Web.WebView2.Core
Imports WebView2.DevTools.Dom
Public Class Form1
    Dim WithEvents coreWebView2New As CoreWebView2
    Dim WithEvents WV1 As Microsoft.Web.WebView2.WinForms.WebView2
    Dim devtoolsContext As WebView2DevToolsContext
    Sub New()
        InitializeComponent()
    End Sub
    Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try
            devtoolsContext = Await setOption()
            Exit Try
        Catch ex As Exception
            Label1.Text = ex.Message
        Finally
        End Try
    End Sub
    Async Function setOption() As Task(Of WebView2DevToolsContext)
        If devtoolsContext IsNot Nothing Then
            Await devtoolsContext.DisposeAsync
        End If
        If WV1 IsNot Nothing Then
            WV1.Dispose()
            Controls.Remove(WV1)
        End If
        WV1 = New Microsoft.Web.WebView2.WinForms.WebView2 With {
            .Location = New Point(0, 0),
            .Size = New Point(752, 316),
            .ZoomFactor = 0.9,
            .Visible = False
                        }
        Controls.Add(WV1)
        'Dim Options As CoreWebView2EnvironmentOptions = Nothing
        'Options = New CoreWebView2EnvironmentOptions With {
        '    .AdditionalBrowserArguments = "--no-proxy-server"
        '}
        'Dim env = Await CoreWebView2Environment.CreateAsync(Nothing, Nothing, Options)
        Await WV1.EnsureCoreWebView2Async()
        coreWebView2New = WV1.CoreWebView2
        RemoveHandler WV1.CoreWebView2.NewWindowRequested, AddressOf CoreWebView2_NewWindowRequested
        AddHandler WV1.CoreWebView2.NewWindowRequested, AddressOf CoreWebView2_NewWindowRequested
        WV1.CoreWebView2.Navigate("https://ya.ru/")
        Return Await WV1.CoreWebView2.CreateDevToolsContextAsync()
    End Function
    Private Sub CoreWebView2_NewWindowRequested(ByVal sender As Object, ByVal e As Microsoft.Web.WebView2.Core.CoreWebView2NewWindowRequestedEventArgs)
        Try
            e.Handled = True
            Exit Try
        Catch ex As Exception
            Label1.Text = ex.Message
        Finally
        End Try
    End Sub
    Private Async Sub coreWebView2New_DOMContentLoaded(sender As Object, e As CoreWebView2DOMContentLoadedEventArgs) Handles coreWebView2New.DOMContentLoaded
        Try
            If devtoolsContext Is Nothing Then
                devtoolsContext = Await setOption()
            End If
            If devtoolsContext.Url = "https://ya.ru/" Then
                'какойто код
            End If
            WV1.Visible = True
            Exit Try
        Catch ex As Exception
            Label1.Text = ex.Message
        Finally
        End Try
    End Sub
    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim inputCheck = Await devtoolsContext.QuerySelectorAsync(Of HtmlInputElement)("#text")
            Await inputCheck.SetValueAsync(TextBox1.Text)
            Dim elements = Await devtoolsContext.QuerySelectorAllAsync(Of HtmlButtonElement)("button")
            For Each elem In elements
                If Await elem.GetClassNameAsync = "search3__button mini-suggest__button" Then
                    Await elem.InvokeClickAsync
                End If
            Next
        Catch ex As Exception
            Label1.Text = ex.Message
        Finally
        End Try
    End Sub
 
    Private Async Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim elements = Await devtoolsContext.QuerySelectorAllAsync(Of HtmlElement)("a")
        For Each elem In elements
            If Await elem.GetClassNameAsync = "home-link2 informers3__stocks-item home-link2_color_quaternary home-link2_hover_tertiary" Then
                Await elem.RemoveAsync
            End If
        Next
    End Sub
 
    Private Async Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim elements = Await devtoolsContext.QuerySelectorAllAsync(Of HtmlElement)("a")
        Dim lst As New List(Of String)
        For Each elem In elements
            If Await elem.GetClassNameAsync = "home-link2 informers3__stocks-item home-link2_color_quaternary home-link2_hover_tertiary" Then
                lst.Add(Await elem.GetInnerTextAsync)
            End If
        Next
        Label2.Text = lst(0)
        Label3.Text = lst(1)
        Label4.Text = lst(2)
    End Sub
End Class