• https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.webbrowser.navigating?view=netframework-4.8

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim urls As String() = {"google.co.jp", "google.co.uk", "google.es", "google.com"}
        For Each url As String In urls
            Me.WebBrowser1.Navigate(url)
        Next
    End Sub
 
    Private Sub WebBrowser1_Navigating(sender As Object, e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        Console.WriteLine($"Starting navigation: {e.Url}")
        Me.ValidateUri(e.Url)
    End Sub
 
    Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        Console.WriteLine($"Completed navigation: {e.Url}")
    End Sub
 
    Private Sub ValidateUri(uri As Uri)
        If uri.AbsoluteUri.Contains("PARTE DE MI ENLACE WEB") Then
            ' ...
        End If
    End Sub
 
End Class

• https://www.pinvoke.net/default.aspx/user32.sendmessage
• https://www.pinvoke.net/default.aspx/user32.postmessage

• https://www.tangiblesoftwaresolutions.com/download.html

• http://converter.telerik.com/

• https://foro.elhacker.net/profiles/extraterreste-u596976.html;sa,account

• https://foro.elhacker.net/net/consulta_coordenadas_de_ventana_en_segundo_plano-t493667.0.html;msg2188093#msg2188093

• https://foro.elhacker.net/buscador-t491309.0.html

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
...

Imports System.IO.Ports
Imports System.Timers
 
Public NotInheritable Class SensorClass : Implements IDisposable
 
#Region "Properties"
 
    Public ReadOnly Property SerialPort As SerialPort
        Get
            Return Me.serialPort_
        End Get
    End Property
    Private serialPort_ As SerialPort
 
    Public ReadOnly Property Output As String
        Get
            Return Me.output_
        End Get
    End Property
    Private output_ As String
 
#End Region
 
#Region "Private Fields"
 
    Private WithEvents TimerSensores As Timer
 
#End Region
 
#Region "Constructors"
 
    <DebuggerStepThrough>
    Public Sub New()
        Me.CommPortSetup()
 
        Me.TimerSensores = New Timer() With {
            .AutoReset = True,
            .Interval = 100,
            .Enabled = True
        }
    End Sub
 
#End Region
 
#Region "Private Methods"
 
    <DebuggerStepThrough>
    Private Sub CommPortSetup()
        Me.serialPort_ = New SerialPort With {
            .PortName = "COM7",
            .BaudRate = 9600,
            .DataBits = 8,
            .StopBits = StopBits.One
        }
 
        Me.serialPort_.Open()
    End Sub
 
#End Region
 
#Region "Event-Handlers"
 
    <DebuggerStepperBoundary>
    Private Sub TimerSensores_Elapsed(sender As Object, e As ElapsedEventArgs) Handles TimerSensores.Elapsed
        Me.SerialPort.Write("#03A" & ControlChars.Cr)
        Me.SerialPort.DiscardInBuffer()
 
        Me.output_ = Me.SerialPort.ReadTo(ControlChars.Cr)
 
        DirectCast(sender, Timer).Interval += 1000
    End Sub
 
#End Region
 
#Region "IDisposable Implementation"
 
    Private disposedValue As Boolean ' Flag to detect redundant calls
 
    <DebuggerStepThrough>
    Public Sub Dispose() Implements IDisposable.Dispose
        Me.Dispose(disposing:=True)
    End Sub
 
    <DebuggerStepThrough>
    Private Sub Dispose(disposing As Boolean)
        If Not (Me.disposedValue) AndAlso (disposing) Then
            Me.TimerSensores?.Dispose()
            Me.serialPort_?.Dispose()
        End If
 
        Me.disposedValue = True
    End Sub
 
#End Region
 
End Class

Public Class Form1
 
    Private sensorClass As SensorClass
    Private canal0_nd03, canal1_nd03, canal2_nd03, canal3_nd03, canal4_nd03, canal5_nd03, canal6_nd03, canal7_nd03 As String
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.sensorClass = New SensorClass()
 
        With Me.Timer1
            .Interval = 100
            .Enabled = True
            .Start()
        End With
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
        Dim output As String = SensorClass.Output
        Me.canal0_nd03 = output.Substring(3, 4)
        Me.canal1_nd03 = output.Substring(10, 4)
        Me.canal2_nd03 = output.Substring(17, 4)
        Me.canal3_nd03 = output.Substring(24, 4)
        Me.canal4_nd03 = output.Substring(31, 4)
        Me.canal5_nd03 = output.Substring(38, 4)
        Me.canal6_nd03 = output.Substring(44, 4)
        Me.canal7_nd03 = output.Substring(52, 4)
 
        'MOSTRAR DATOS
        Me.Label2.Text = $"{Me.canal0_nd03} ºC"
        Me.Label6.Text = $"{Me.canal1_nd03} ºC"
        Me.Label10.Text = $"{Me.canal2_nd03} ºC"
        Me.Label7.Text = $"{Me.canal3_nd03} ºC"
        Me.Label14.Text = $"{Me.canal4_nd03} ºC"
        Me.Label11.Text = $"{Me.canal5_nd03} ºC"
        Me.Label18.Text = $"{Me.canal6_nd03} ºC"
        Me.Label15.Text = $"{Me.canal7_nd03} ºC"
 
        '' Si tienes problemas para actualizar el texto de los Labels, 
        '' desactiva alguna de las siguientes lineas comentadas para invocar el método de dibujado.
        '
        ' Me.Invalidate(invalidateChildren:=True)
        ' Me.Refresh()
 
    End Sub
 
End Class

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim columnIndex As Integer = 0
 
        ' Unión entre las colecciones de elementos de ListView1, ListView2 y ListView3.
        Dim items As ListViewItem() =
            ({Me.ListView1.Items.Cast(Of ListViewItem),
              Me.ListView2.Items.Cast(Of ListViewItem),
              Me.ListView3.Items.Cast(Of ListViewItem)
             }.SelectMany(Function(sequence) sequence)
            ).ToArray()
 
        ' Agrupación de los elementos mediante pares de clave-valor (clave=texto del elemento, valor=cantidad de repeticiones).
        Dim groups As KeyValuePair(Of String, Integer)() =
            (From item As ListViewItem In items
             Let key As String = item.SubItems(columnIndex).Text
             Order By key Ascending
             Group By key Into keys = Group
             Select New KeyValuePair(Of String, Integer)(key, keys.Count())
            ).ToArray()
 
        ' Creación de nuevos elementos para añadir en el ListView4.
        Dim newItems As ListViewItem() =
            (From group As KeyValuePair(Of String, Integer) In groups
             Select New ListViewItem({group.Key, CStr(group.Value)})
            ).ToArray()
 
        ' Adición de los nuevos elementos al ListView4.
        With Me.ListView4
            .BeginUpdate()
 
            .Items.Clear()
            .Items.AddRange(newItems)
 
            .EndUpdate()
        End With
 
    End Sub
 
End Class

using System;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Drawing;
using System.Linq;
using System.Threading;
using System.Windows.Forms;
 
namespace WindowsFormsApp1 {
 
    public partial class Form1 : Form {
 
        private Random RNG = new Random(Environment.TickCount);
 
        private char nextChar;
 
        private bool isSuccess;
        private int successCount;
        private int failCount;
 
        public Form1() {
           this.InitializeComponent();
        }
 
        private void Form1_Load(object sender, EventArgs e) {
            this.KeyPreview = true;
        }
 
        private void btnIniciar_Click(object sender, EventArgs e) {
 
            this.Reset();
 
            Stopwatch watch = new Stopwatch();
            watch.Start();
 
            while (watch.Elapsed <= TimeSpan.FromSeconds(3)) {
                this.nextChar = this.GeneradorLetra("ABCDEFG".ToCharArray(), this.nextChar);
                this.lblEtiqueta.Text = this.nextChar.ToString();
 
                while (!((this.isSuccess) || (watch.Elapsed >= TimeSpan.FromSeconds(3)))) {
                    this.LabelStopWatch.Text = (3 - watch.Elapsed.Seconds).ToString();
                    Application.DoEvents();
                }
 
                if (this.isSuccess) {
                    Thread.Sleep(500);
                    this.successCount += 1;
                } else {
                    this.failCount += 1;
                }
                this.isSuccess = false;
 
                this.lblEtiqueta.ForeColor = Label.DefaultForeColor;
                this.LabelSuccessful.Text = this.successCount.ToString();
                this.LabelFailed.Text = this.failCount.ToString();
 
                watch.Restart();
                Thread.CurrentThread.Join(0);
            }
 
        }
 
        private void Form1_KeyPress(object sender, KeyPressEventArgs e) {
 
            if (!(this.isSuccess) && (char.ToLower(this.nextChar) == char.ToLower(e.KeyChar))) {
                this.lblEtiqueta.ForeColor = Color.Green;
                this.isSuccess = true;
 
            } else {
                this.lblEtiqueta.ForeColor = Color.Red;
 
            }
 
        }
 
        private char GeneradorLetra(char[] charSet, char previousChar) {
            IEnumerable<char> tmpCol = from char c in charSet
                                       where (c != previousChar)
                                       select c;
            return tmpCol.ElementAtOrDefault(this.RNG.Next(0, tmpCol.Count()));
        }
 
        private void Reset() {
            this.successCount = 0;
            this.failCount = 0;
            this.LabelSuccessful.Text = this.successCount.ToString();
            this.LabelFailed.Text = this.failCount.ToString();
        }
 
    }
}
 

Imports System.Threading
 
Public Class Form1
 
    Private RNG As New Random(Environment.TickCount)
 
    Private nextChar As Char
 
    Private isSuccess As Boolean
    Private successCount As Integer
    Private failCount As Integer
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
 
    Private Sub btnIniciar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnIniciar.Click
 
        Me.Reset()
 
        Dim watch As New Stopwatch()
        watch.Start()
 
        Do While (watch.Elapsed <= TimeSpan.FromSeconds(3))
            Me.nextChar = Me.GeneradorLetra("ABCDEFG".ToCharArray(), Me.nextChar)
            Me.lblEtiqueta.Text = Me.nextChar
 
            Do Until (Me.isSuccess) OrElse (watch.Elapsed >= TimeSpan.FromSeconds(3))
                Me.LabelStopWatch.Text = CStr(3 - watch.Elapsed.Seconds)
                Application.DoEvents()
            Loop
 
            If (Me.isSuccess) Then
                Thread.Sleep(500)
                Me.successCount += 1
            Else
                Me.failCount += 1
            End If
            Me.isSuccess = False
 
            Me.lblEtiqueta.ForeColor = Label.DefaultForeColor
            Me.LabelSuccessful.Text = CStr(Me.successCount)
            Me.LabelFailed.Text = CStr(Me.failCount)
 
            watch.Restart()
            Thread.CurrentThread.Join(0)
        Loop
 
    End Sub
 
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles Me.KeyPress
 
        If Not (Me.isSuccess) AndAlso (Char.ToLower(Me.nextChar) = Char.ToLower(e.KeyChar)) Then
            Me.lblEtiqueta.ForeColor = Color.Green
            Me.isSuccess = True
 
        Else
            Me.lblEtiqueta.ForeColor = Color.Red
 
        End If
 
    End Sub
 
    Private Function GeneradorLetra(charSet As Char(), previousChar As Char) As Char
        Dim tmpCol As IEnumerable(Of Char) = From c As Char In charSet Where (c <> previousChar)
        Return tmpCol(Me.RNG.Next(0, tmpCol.Count))
    End Function
 
    Private Sub Reset()
 
        Me.successCount = 0
        Me.failCount = 0
        Me.LabelSuccessful.Text = CStr(Me.successCount)
        Me.LabelFailed.Text = CStr(Me.failCount)
 
    End Sub
 
End Class