Declare Integer BringWindowToTop In user32 Integer HWnd Local apie apie=Newobject("internetexplorer.application") &&can be embed browser also (shell.explorer.2 oleclass) With apie .Navigate("about:blank") Inke(1) &&to access to document object Local m.myvar TEXT to m.myvar noshow &&write all your styles here p{ width:700px; text-align:center; color:rgb(255,0,0); fontsize:20px; fontFamily:courier new ; fontstyle:italic; padding:15px; background-Color : cyan; border-Radius : 25px; border:solid rgba(255,120,140,0.8); } body { font: 20px verdana; background-color:bisque; } ENDTEXT Local m.x,m.t With .Document m.x = .createElement("STYLE") m.t = .createTextNode(m.myvar) m.x.appendChild(T) .Head.appendChild(x) Endwith Inke(2) Local m.y TEXT to m.y noshow <center> <p> Lorem ipsum dolor sit amet, consectetur adipiscing elit. Proin vel risus eget lorem feugiat fermentum nec a turpis. Phasellus purus sem, mollis ac posuere eget, ornare vel orci. Sed ac rutrum</p> <br><br> <p>nulla. Aenean ultrices eget lectus eu efficitur. In hac habitasse platea dictumst. Nulla in iaculis nisi.</p> <br><br> <p>Nullam et pulvinar tellus. Donec arcu dui, efficitur a odio non, porta congue dolor. Aenean viverra auctor sagittis. Integer lobortis dignissim auctor. Proin et volutpat massa.</p> </center> ENDTEXT .Document.body.innerhtml=m.y .menubar=0 .Toolbar=0 .StatusBar=0 BringWindowToTop(.HWnd) .Visible=.T. Endwith