Option Private Module
Option Explicit
 
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
  lpSFlags As Long, ByVal dwReserved As Long) As Long
 
Const INTERNET_CONNECTION_LAN          As Long = &H2
Const INTERNET_CONNECTION_MODEM        As Long = &H1
Const INTERNET_CONNECTION_PROXY        As Long = &H4
Const INTERNET_CONNECTION_MODEM_BUSY   As Long = &H8
 
 
Public Function IfOnline() As Boolean
  Dim icFlags As Long
 
  Call InternetGetConnectedState(icFlags, 0&)
  IfOnline = False
 
  If icFlags And INTERNET_CONNECTION_LAN Then
    IfOnline = True
  End If
 
  If icFlags And INTERNET_CONNECTION_MODEM Then
    IfOnline = True
  End If
 
  If icFlags And INTERNET_CONNECTION_PROXY Then
    IfOnline = True
  End If
 
  If icFlags And INTERNET_CONNECTION_MODEM_BUSY Then
    IfOnline = False
  End If
 
End Function