FoxPro/Visual FoxPro - AYUDA CON CONEXIONES

HOLA, TENGO UN PROGRAMA QUE AL ENTRAR LO PRIMERO QUE HACE ES CONECTARSE A TRAVÉS DE FTP, Y TODO FUNCIONA MUY BIEN, LO QUE QUIERO SABER ES COMO PUEDO SABER SI NO HAY CONEXION A INTERNET, PORQUE CUANDO INTENTA CONECTARSE Y NO HAY CONEXION TARDA MUCHO, Y ASI LO PRIMERO QUE HAGO ES MIRAR SI HAY CONEXION.

GRACIAS

DECLARE LONG InternetGetConnectedState IN "wininet.dll" ;
LONG lpdwFlags, LONG dwReserved
IF InternetGetConnectedState(0, 0) = 1
MESSAGEBOX('Conectado a Internet')
ELSE
MESSAGEBOX('Sin Conexion a Internet')

Suerte