Set value of the element (problem)

[dsdsdfsdfsfsdfsfsdf]

I have problem in the my PRG:

*========================================================================================

• Retrieve HTML from a loaded document
  *========================================================================================
  Public goForm
  Set Procedure To CefSharpBrowser.fxp ADDITIVE
  goForm = CreateObject ("DemoForm")
  goForm.Show ()

Define Class DemoForm as Form

Height = 440
Width = 860

Add Object oleBrowser as OleControl With ;
	 OleClass = "fpDotNet.DotNetContainer" ;
	,Top = 5 ;
	,Left = 5 ;
	,Height = 395 ;
	,Width = 850 ;
	,Anchor = 15
	
Add Object cefSharpBrowser as CefSharpBrowser 

Add Object cmdGetHtml as CommandButton with ;
	 Caption = "Get HTML" ;
	,Top = 405 ;
	,Left = 5 ;
	,Height = 25 ;
	,Anchor = 6

index_html = ""

Procedure Init
TEXT TO This.index_html NoShow

Text 1:

Text 2:




ENDTEXT

This.CefSharpBrowser.BindtoHost ( ;
	 This.oleBrowser ;
	,"https://myApp/index.html" ;
	,This ;
)

Procedure cmdGetHtml.Click
Local lcResult

    ** Set New Value
lcResult = Thisform.EvaluateScript ( ;
	[document.getElementById('text1').value="New Value1"] ;
)

   ** Get HTML
lcResult = Thisform.EvaluateScript ( ;
	"document.getElementById('myform').innerHTML" ;
)
MessageBox (m.lcResult)	

Procedure EvaluateScript (tcScript)

Local loBridge, loBrowser, loFrame
loBridge = This.CefSharpBrowser.DotNet ()
loBrowser = loBridge.InvokeMethod (This.CefSharpBrowser.oChromium, "GetBrowser")
loFrame = loBridge.GetProperty (m.loBrowser, "MainFrame")

Local loTask, loResponse, luResult
loTask = loBridge.InvokeMethod (m.loFrame, "EvaluateScriptAsync" ;
	,m.tcScript ;
	,"about:blank" ;
	,1 ;
	,null ;
	,.F. ;
)
loResponse = loBridge.GetProperty (m.loTask, "Result")
luResult = loBridge.GetProperty (m.loResponse, "Result")

Return m.luResult

Procedure QueryUnload
This.ReleaseRefrences ()

Procedure Release
This.ReleaseRefrences ()

Procedure ReleaseRefrences
This.RemoveObject ("oleBrowser")
This.RemoveObject ("CefSharpBrowser")

EndDefine