FoxPro/Visual FoxPro - Validar conexión a internet

Buenas tardes mi cuestión es la siguiente, me gustaría saber como podría validar desde Visual FoxPro la conexion de internet, me explico. La cuestión es que desde código mando unos ficheros por FTP y quería validar de alguna manera la conexion a internet, por si no hay conexión, poder informar al usuario de que no hay. A ver si alguien me pudiera ayudar. Muchas gracias por adelantado.

conexion=createobject('hyperlink')
if type('conexion')='O'
x.NavigateTo("www.google.com")
endif

o en su defecto

CheckInternetConnection("http://www.microsoft.com")

FUNCTION CheckInternetConnection
LPARAMETERS tcWebAddress
DECLARE Integer InternetCheckConnection ;
IN WININET.DLL ;
String Url, Long dwFlags, Long Reserved
IF InternetCheckConnection(tcWebAddress,1,0) # 0
RETURN .T.
ELSE
RETURN .F.
ENDIF


checa que aqui puedes asignar la pagina que quieras validar


Suerte