Potresti ancora usare il WebBrowser ma invece che simulare IE11 devi dirgli che deve simulare Edge
nel tuo Form_Load chiama questa routine:
Private 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
Ovviamente devi anche fare la gestione degli errori