Problem with favorites menu

[Brian Heibert <bheibert at verizon dot net>]

With this code I save the url that the person visited in my web browser and
put it in my Favorites menu but when the person adds a favorite that site is
visited immediately instead of when the person clicks on the menuitem I want
it to wait till the person clicks on the menuitem. -Brian

  Dim save as string
  If FavOne.text = "1" then
    save = Browser.editfield1.text
    FavOne.text = Browser.editfield1.text
  elseIf FavTwo.text = "2" then
    FavTwo.text = Browser.editfield1.text
    Browser.WebKit1.Loadurl FavTwo.text
  elseIf FavThree.text = "3" then
    FavThree.text = Browser.editfield1.text
    Browser.WebKit1.Loadurl FavThree.text
  elseIf FavFour.text = "4" then
    FavFour.text = Browser.editfield1.text
    Browser.WebKit1.Loadurl FavFour.text
  elseIf FavFive.text = "5" then
    FavFive.text = Browser.editfield1.text
    Browser.WebKit1.LoadURL FavFive.text
  elseIf FavSix.text = "6" then
    FavSix.text = Browser.editfield1.text
    Browser.webkit1.loadurl FavSix.text
  elseIf Fav7.text = "7" then
    Fav7.text = Browser.editfield1.text
    Browser.Webkit1.loadurl Fav7.text
  elseIf Fav8.text = "8" then
    Fav8.text = Browser.editfield1.text
    Browser.WebKit1.loadurl Fav8.text
  elseIf Fav9.text = "9" then
    Fav9.text = Browser.editfield1.text
    Browser.WebkIt1.loadurl Fav9.text
  elseIf Fav10.text = "10" then
    Fav10.text = Browser.editfield1.text
    Browser.WebKit1.loadurl Fav10.text
  end if
  If FavOne.text <> "" and FavOne.text = save then
    webkit1.loadurl save
  end if
  If FavTwo.text <> "" and FavTwo.text = save then
    webkit1.loadurl save
  end if
  If FavThree.text <> "" and FavThree.text = save then
    webkit1.loadurl save
  end if
  If FavFour.text <> "" and FavFour.text = save then
    webkit1.loadurl save
  end if
  If FavFive.text <> "" and FavFive.text = save then
    webkit1.loadurl save
  end if
  If FavSix.text <> "" and FavSix.text = save then
    webkit1.loadurl save
  end if
  If Fav7.text <> "" and Fav7.text = save then
    webkit1.loadurl save
  end if
  If Fav8.text <> "" and Fav8.text = save then
    webkit1.loadurl save
  end if
  If Fav9.text <> "" and Fav9.text = save then
    webkit1.loadurl save
  end if
  If Fav10.text <> "" and Fav10.text = save then
    webkit1.loadurl save
  end if
  

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>