Code: Select all
OleAcc = OpenLibrary(#PB_Any, "OLEACC.DLL")
If OleAcc And GetFunction(OleAcc, "ObjectFromLresult")
CallFunction(OleAcc, "ObjectFromLresult", MessageResult, ?IID_IHTMLDocument2, 0, @HtmlDoc)
CloseLibrary(OleAcc)
EndIf