Imports System
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Imports DotNetBrowser.Browser
Imports DotNetBrowser.Engine
Imports DotNetBrowser.WinForms
Public Class Form1

    Inherits Form
    Private ReadOnly engine As IEngine
    Private ReadOnly browser As IBrowser

    Public Sub New()
        InitializeComponent()

        ' Create and initialize the IEngine
        engine = EngineFactory.Create()

        ' Create the Windows Forms BrowserView control
        Dim browserView As New BrowserView() With {.Dock = DockStyle.Fill}

        ' Create the IBrowser
        browser = engine.CreateBrowser()
        browser.Navigation.LoadUrl("https://google.com/") '

        ' Initialize the Windows Forms BrowserView control
        browserView.InitializeFrom(browser)

        ' Add the BrowserView control to the Form
        Panel1.Controls.Add(browserView)
        AddHandler Me.Closed, AddressOf Form1Closed
    End Sub

    Private Sub Form1Closed(ByVal sender As Object, ByVal e As EventArgs)
        browser.Dispose()
        engine.Dispose()
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim title As JSValue = browser.ExecuteJavaScriptAndReturnValue("document.title = 'My title'; document.title")
        browser.MainFrame.ExecuteJavaScript("")

        ' browser.MainFrame.ExecuteJavaScript("alert('Helo');")

    End Sub
    Public Function GetGold() As String
        Dim gold As Integer = 0

        Return gold
    End Function

End Class