FoxPro/Visual FoxPro - boton para entrar a internet

Hola amigos,
de antemano gracias por la ayuda
debo crear un boton el mi formulario que al dar clic me abra internet y de una vez me abra la pagina que quiero por ejemplo

al dar clic necesito que habra www.google.com son q

pone este codigo en un boton

CheckInternetConnection("http://www.lawebdelprogramador.com/news")

FUNCTION CheckInternetConnection
LPARAMETERS tcWebAddress
DECLARE Integer InternetCheckConnection ;
IN WININET.DLL ;
String Url, Long dwFlags, Long Reserved
IF InternetCheckConnection(tcWebAddress,1,0) # 0
x=createobject('hyperlink')
if type('x')='O'
x.NavigateTo("google.com.ar.")
endif
ELSE
wait wind "no encontro la pagiona"
ENDIF

En el evento clic del boton de comando agrega esto;

pagina=createobject("hyperlink")
pagina.navigateto("www.google.com")

Saludes