*!* Make sure the user is logged on to the internet WAIT WINDOW "Verifying an Internet connection is available..." NOWAIT NOCLEAR IF !oInternet.HTTPPing(10, "www.server.com") WAIT WINDOW "Attempting to connect to the Internet" NOWAIT NOCLEAR *!* Connect unless we are already connected IF oInternet.InternetDial() OR GoApp.Connected_Via_Dialup WAIT WINDOW "Verifying Internet connection succeeded..." NOWAIT NOCLEAR IF !oInternet.HTTPPing(10, "www.server.com") WAIT CLEAR GoApp.MsgBox(" Unable To Connect to the internet." + CHR(13) + CHR(10) + CHR(13) + CHR(10) +; [You must be connected to the Internet in order to use the "Super Charger" feature.], 64) GoApp.Connected_Via_Dialup = .F. RETURN .F. ELSE GoApp.Connected_Via_Dialup = .T. ENDIF ELSE WAIT CLEAR GoApp.MsgBox(" Operation canceled by user." + CHR(13) + CHR(10) + CHR(13) + CHR(10) +; [You must be connected to the Internet in order to use the "Super Charger" feature.], 64) RETURN .F. ENDIF ENDIF