Hi Naomi
First time works like a charm. It's the second selection that doesn't work. It sticks on first selection.
here's a functioning program with actual websitesif you'd like to paste it into a sample program.
Press the first selection for google.
Then redo only this time select Foxforum, the webbrowser remains on Google.

k

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

proc netter
do case
case bar()=1
site = "http://www.google.ca/"
DO NETUP
DO SIGNOFF

case bar()=2
site = "http://foxforum.com/"
DO NETUP
DO SIGNOFF

case bar()=3
site = "http://www.levelextreme.com/"
DO NETUP
DO SIGNOFF


case bar()=4
clear
deactivate popup mnubef
return
endcase


PROC NETUP
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=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

            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)

       

ENDDEFINE

DEFINE CLASS cweb as olecontrol

      oleclass="shell.explorer.2"

      PROCEDURE refresh

            nodefault

ENDDEFINE