Gaorge, Great! I find I can bring Internet Explorer to the foreground just by doing

loShell.AppActivate('Internet Explorer')

wait
oie.quit
release oie

Here is the quick program I have for viewing internet explorer favorites for anybody else who needs this.
Thanks
Steve



set safe off
clear



create table favs ( ;
FavName c (50) , ;
MemName mem , ;
FavUrl c(50) , ;
MemUrl mem )

close all

use favs


release all like o*

loShell = CREATEOBJECT("WScript.Shell")

pcFolderName =loShell.SpecialFolders("Favorites")

oFS = createobject("scripting.FileSystemObject")
oFolder = oFS.GetFolder(pcFolderName)
? " number of favorites :", oFolder.Files.Count
? oFolder.SubFolders.Count



** Files in Favorites
for each loFile in oFolder.Files
appe blank
go bott

repl FavName with loFile.Name
repl MemName with loFile.Name

?? substr(alltrim((loFile.Name)),1,1)

oShortCut = loShell.CreateShortcut(ADDBS("C:\Documents and Settings\se\Favorites") + (loFile.Name))

*? oShortCut.TargetPath
*?

repl FavUrl with oShortCut.TargetPath
repl memUrl with oShortCut.TargetPath


next

*** SubFolders in Favorites
for each loFolder in oFolder.SubFolders
?loFolder.Name
next


inde on alltrim((favname)) to a
go top

mlook = 1
do while mlook = 1

clear
browse font "Courier", 18

GetThisUrl = alltrim(MemUrl)

release oie
oie = createobject( "internetexplorer.application" )
oie.Visible = .t.
oie.Navigate( (GetThisUrl) )


loShell.AppActivate('Internet Explorer')
wait

oie.quit
release oie

enddo