WebView2 for VB6 — Commercial ActiveX OCX

' In a VB6 Form module
Private WithEvents m_lv As LiteView2Lib.LiteView2Ctrl

Private Sub Form_Load()
    Set m_lv = LiteView2Ctrl1.Object
End Sub

Private Sub m_lv_WebViewReady()
    m_lv.SetLocalContentRoot App.Path & "\html"
    m_lv.Navigate "https://lv2.example/dashboard.html"
End Sub

Private Sub m_lv_NavigationCompleted(ByVal url As String, ByVal success As Boolean)
    ' Page loaded — safe to push data or execute script
    m_lv.ExecuteScript "updateStatus('VB6 connected')"
End Sub

Private Sub m_lv_WebMessageReceived(ByVal message As String, ByVal source As String)
    ' Receive data from JavaScript
    Debug.Print "From JS: " & message
End Sub

' modLV2Pool - add this standard module to the project once.
Option Explicit

Private Declare Function SetDllDirectory Lib "kernel32" _
    Alias "SetDllDirectoryW" (ByVal lpPathName As Long) As Long
Private Declare Function LiteView2_ActivateManifest _
    Lib "LiteView2_x86.ocx" (ByVal path As Long) As Long
Private Declare Function LiteView2_CreateBrowserPool _
    Lib "LiteView2_x86.ocx" () As Object

Private m_Pool As Object

Public Function GetPool() As Object
    If m_Pool Is Nothing Then
        ' Load the OCX from the app folder (the .vbp folder when run in the IDE).
        SetDllDirectory StrPtr(App.Path)
        LiteView2_ActivateManifest StrPtr(App.Path & "\LiteView2_x86.ocx")
        Set m_Pool = LiteView2_CreateBrowserPool()
    End If
    Set GetPool = m_Pool
End Function

' Form1 - a Frame named Frame1 marks where the browser appears.
Option Explicit
Private idx As Long

Private Sub Form_Load()
    ' Create the browser inside the Frame's window (position and size in pixels).
    idx = GetPool().Create(Frame1.hWnd, "about:blank", 0, 0, _
          ScaleX(Frame1.Width, vbTwips, vbPixels), ScaleY(Frame1.Height, vbTwips, vbPixels))
    GetPool().SetReadyCallback idx, Me, "OnBrowserReady"
End Sub

Public Sub OnBrowserReady()
    GetPool().SetLocalContentRoot idx, App.Path & "\html"
    GetPool().Navigate idx, "https://lv2.example/dashboard.html"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If idx > 0 Then GetPool().DestroySync idx
End Sub