edge headless mode doesn't work

[mnru]

the code below works well

Sub testChromeHeadlessMode()
Dim driver As New WebDriver
Dim options As New WebDriverOptions
options.BrowserType = Chrome
options.ChromeArguments.Add "--headless"
driver.Chrome "driver/path"
driver.OpenBrowser options
Debug.Print "finished"
End Sub

but the code below doesn't work

Sub testEdgeHeadlessMode()
Dim driver As New WebDriver
Dim options As New WebDriverOptions
options.BrowserType = Edge
options.EdgeArguments.Add "--headless"
driver.Edge "driver/path"
driver.OpenBrowser options
Debug.Print "finished"
End Sub

I don't know how to fix this code

[er-ri]

Try the following code if --headless doesn't work.

    Set driver = New WebDriver
    edgeOptions.BrowserType = Edge
    edgeOptions.EdgeArguments.Add "--headless=new"
    driver.Edge "path\to\msedgedriver.exe"
    
    driver.OpenBrowser edgeOptions