RE:Ayuda con esto Hyperlink
PUBLIC ox
ox=NEWOBJECT("myformx")
BINDEVENT(_screen,"resize",ox,"resize")
ox.show
DEFINE CLASS myformx as Form
ADD OBJECT txtURL as textbox WITH width=400,value="www.msn.com",autocomplete=3
ADD OBJECT cmdRefresh as commandbutton WITH caption="\<Refresh",left=400,height=20
ADD OBJECT cmdBack as commandbutton WITH caption="\<Back",left=475,height=20
ADD OBJECT cmdForward as commandbutton WITH caption="\<Forward",left=550,height=20
ADD OBJECT oweb as cweb WITH top=30
width=800
height=800
alwaysonbottom=.t.
allowoutput=.f.
titlebar=0
PROCEDURE init
this.oweb.width=thisform.Width
thisform.resize
this.oweb.height=thisform.height-thisform.txtURL.height-2
thisform.txtURL.valid
PROCEDURE resize
thisform.Width=_screen.Width
thisform.Height=_screen.height
this.oweb.top=30
this.oweb.height=thisform.Height-100
this.oweb.width=thisform.width-thisform.left
PROCEDURE txtURL.valid
thisform.oweb.navigate(this.value)
PROCEDURE cmdRefresh.click
thisform.oweb.refresh
PROCEDURE cmdBack.click
try
thisform.oweb.goback()
CATCH
endtry
PROCEDURE cmdForward.click
try
thisform.oweb.goForward()
CATCH
endtry
ENDDEFINE
DEFINE CLASS cweb as olecontrol
oleclass="shell.explorer.2"
PROCEDURE refresh
nodefault
ENDDEFINE