DECLARE SwitchToThisWindow IN user32 INTEGER hWindow, INTEGER fAltTab

= OpenLink("google.com")
= OpenLink("yahoo.com")
= OpenLink("msn.com")

PROCEDURE OpenLink(cLink)
	LOCAL obj
	obj = CREATEOBJECT("InternetExplorer.Application")
	WITH obj
		.Navigate(m.cLink)
		.Visible=.T.
		= SwitchToThisWindow(.HWND, 1)
	ENDWITH