dim JQuery as string
Private Txt_Search as TextField
Private WV_Search as WebView
File.Copy(File.DirAssets,"HighLight.js",File.DirTemp,"HighLight.js")
JQuery= File.Combine(File.DirTemp,"HighLight.js")
WV_Search.LoadHtml($"
<script src="${JQuery}"></script>
"$)
JS($"uiWebview_HighlightAllOccurencesOfString(${Txt_Search.Text}$)"$,WV_Search)
Sub JS (Script As String, WebV As WebView)
Dim NaObj As NativeObject = WebV
NaObj.RunMethod("stringByEvaluatingJavaScriptFromString:", Array(Script))
End Sub