WebView2 for VB6 — Commercial ActiveX OCX

' In a VB6 Form module
Private WithEvents m_lv As LiteView2.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.local/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

' Declarations (add to a BAS module)
#If VBA7 Or Win64 Then
    ' (not applicable in VB6 — VB6 is always 32-bit)
#End If
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

' In Form_Load:
Private pool As Object
Private idx As Long

Private Sub Form_Load()
    LiteView2_ActivateManifest StrConv(App.Path & "\LiteView2_x86.ocx", vbFromUnicode)
    Set pool = LiteView2_CreateBrowserPool()
    idx = pool.CreateInControl("about:blank", Frame1)
    pool.SetReadyCallback idx, Me, "OnBrowserReady"
End Sub

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