do netted activate popup mnubef SITE = " " proc netted DEFINE POPUP mnubef relative COLOR SCHEME 6 FROM 3,55 FONT 'tahoma',11 ; DEFINE Bar 1 of mnuBef PROMPT 'Google' DEFINE Bar 2 OF mnuBef PROMPT 'FoxForum' DEFINE Bar 3 OF mnuBef PROMPT 'Universal thread' DEFINE Bar 4 OF mnuBef PROMPT 'Return to Menu' On Selection Popup mnubef Do netter WITH BAR() proc netter(lnBar) site = [] do case case lnBar=1 site = "http://www.google.ca/" case lnBar=2 site = "http://foxforum.com/" case lnBar=3 site = "http://www.levelextreme.com/" case lnBar=4 clear deactivate popup mnubef return ENDCASE NetUp(site) RETURN PROC NETUP(lcSite) IF NOT TYPE("m.ox.Name") == [C] PUBLIC ox ox=NEWOBJECT("myformx") BINDEVENT(_screen,"resize",ox,"resize") ox.show ENDIF ox.txtURL.Value = m.site ox.txtURL.Valid() RETURN DEFINE CLASS myformx as Form ADD OBJECT txtURL as textbox WITH width=400,value=SITE 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 ENDPROC PROCEDURE resize IF TYPE("this.oWeb.Name") == [C] 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 ENDIF ENDPROC PROCEDURE txtURL.valid thisform.oweb.navigate(this.value) ENDPROC ENDDEFINE DEFINE CLASS cweb as olecontrol oleclass="shell.explorer.2" PROCEDURE refresh nodefault ENDPROC ENDDEFINE PROCEDURE SignOFF ***** Put your code here RETURN