Reference my message above, here is the procedure code.

Terry
****************************************************************
PROCEDURE CHECKCON

LOCAL lnreturn, lcURL, lnflags, lnreserved

lnreturn = 2
lcURL = "http://www.ndss.com"
lnflags = 1
lnreserved = 0

DECLARE Integer InternetCheckConnection in WININET as InternetCheckConnection String @, Integer, Integer

lnreturn = InternetCheckConnection(@lcURL,lnflags,lnreserved)

DO CASE

CASE lnreturn = 1

MessageBox ('Connection was Successful')

CASE lnreturn = 0

MessageBox ('No Connection Detected')

OTHERWISE

MessageBox ('Connection Error: '+ LTRIM(STR(lnreturn)))

ENDCASE

RETURN lnreturn
**************************************************************