Option Explicit
Private Declare Function internetgetconnectedstate Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub sConnection()
Dim vConnection As Boolean
vConnection = ConnexionInternetActive
End Sub
Private Function ConnexionInternetActive() As Boolean
ConnexionInternetActive = internetgetconnectedstate(0&, 0&)
End Function