Problemi con WebBrowser

Un saluto a tutto il Forum, prima tramite WebBrowser riuscivo a visualizzare un sito,
purtroppo adesso mi segnala che internet explorer non è più supportato, per cui essendo
il comando WebBrowser basato su internet explorer, così mi ricordo, adesso non riesco più
a visualizzare la pagina web.
Chiedo se esiste una soluzione alternativa che consenta di non utilizzare explorer.

Posto il codice presente in unica form.

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim indirizzo As String
        indirizzo = "https://www.lottomatica.it/lotterie/10elotto"
        WebBrowser1.Navigate(indirizzo)
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        WebBrowser1.ScrollBarsEnabled = True
        WebBrowser1.Document.Window.ScrollTo(10, 200) 'Oriz - Vert
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class

Spero in un vostro aiuto in quanto penso possa essere un problema che col tempo sarà presente su altri siti.
Grazie a chi può aiutarmi,
Francesco

Non ho provato ma leggi questo

https://docs.microsoft.com/en-us/mic...arted/winforms

e prova tu webview2

Per fortuna la soluzione è semplice, basta dire al WebBrowser che deve simulare Microsoft Edge
Devi chiamare questa routine nel Form_Load della tua prima form

Public Sub InitEDGE()

        ' Computer\HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION
        Dim VersionCode = 12001 ' EDGE
        Dim Root As String = "HKEY_CURRENT_USER\"
        Dim AppName = My.Application.Info.AssemblyName
        Dim Key As String = "Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION"
        Dim CurrentSetting As String = CStr(Microsoft.Win32.Registry.CurrentUser.OpenSubKey(Key).GetValue(AppName & ".exe"))
        If CurrentSetting Is Nothing OrElse CInt(CurrentSetting) <> VersionCode Then
            Microsoft.Win32.Registry.SetValue(Root & Key, AppName & ".vshost.exe", VersionCode)
            Microsoft.Win32.Registry.SetValue(Root & Key, AppName & ".exe", VersionCode)
        End If

    End Sub

Buongiorno, ringrazio entrambi per le indicazioni date, AntonioG per il link utile che risulta molto istruttivo,
SirJo per il codice che funziona alla perfezione.
Francesco