VB6 Internet connection not working on windows 10

My VB6 program does a test to see if the internet connection is presently on.  (Works on XP, Vista and Win7).  I'm not getting a error, just my msgbox saying to turn the internet on.  I verified that it is connected, but my function below is not reading it as on in Win10 for some reason.  I even installed my program as administrator.

My two functions are below
declare function uses Lib "wininiet.dll" (byref ipsflags as long, byval dwreserved as long)  as long

function notconnected() as boolean
  dim ingflags as integer
  dim binsetcurrent page as boolean

  ingflags = 2
  binsetcurrentpage = false
  if IsConnectedToInternet  (ingflags) then
        'connected
         notconnected = false
  else
        'not connected
         notconnected = true
  endif
endfunction

Function IsConnectedToInternet(Optional connectMode as integer) as boolean
on error goto errorhandler
dim flags as long
flags = 2
IsConnectedToInternet = InternetGetConnectedState(flags, 0)
connectMode = flags
exit function
errorhandler:
IsConnectedToInternet = false
end function

Thank You