' Copy the js file to xui.DefaultFolder
File.Copy(File.DirAssets, "tone.js", xui.DefaultFolder, "tone.js")
Dim html As String = ""
html = html & "<script src=""" & "tone.js" & """></script>" & CRLF
html = html & "<button id=""play-button"">Play/Pause</button>" & CRLF
html = html & "<script>" & CRLF
html = html & File.ReadString(File.DirAssets,"music.js") & CRLF & "</script>"
' Write the html file to xui.DefaultFolder
File.WriteString(xui.DefaultFolder, "index.html", html)
' Load the html file from xui.DefaultFolder
Wb.LoadUrl(xui.FileUri(xui.DefaultFolder, "index.html"))