Error: Interface not supported -2147418113

[maddire]

Hi there. I am currently trialing the control for use within my vb6 application.

Everything is working as it should but I am not able to bind Document.CurrentBrowser = EdgeWebBrowser

My code that I am using is below:

Private WithEvents Document As AntViewAx.AntViewDocument

Private Sub Form_Load()

Set Document = CreateObject("AntViewAx.AntViewDocument")
EdgeWebBrowser.CreateWebView
EdgeWebBrowser.Navigate "https://leadvault.local/full-player.html"

End Sub

Private Sub MapLocalFolderToHostName()

  Dim Path As String
  Dim HostName As String
 
  Path = "C:\Users\Public\Documents\AntView\Examples\VB\html2"
  HostName = "leadvault.local"
  EdgeWebBrowser.SetVirtualHostNameToFolderMapping HostName, Path, hrakAllow
  EdgeWebBrowser.UserDataFolder = Path

End Sub

Private Sub EdgeWebBrowser_OnExecuteScript(ByVal HResult As Long, ByVal JsonObject As String)
  Dim Json As String
 
  ' Use the Document json decode function to make the result more readable
  Document.CurrentBrowser = EdgeWebBrowser
  Json = Document.DecodeJsonObjectString(JsonObject)
  If Json <> "" Then
    MsgBox Json
  End If
End Sub

If anyone could help, that would be great