InternetGetConnectedState

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
  dwFlags As Integer, ByVal dwReserved As Integer) As Integer
 
Dim flags As Integer = 0
Dim inet As Integer = InternetGetConnectedState(flags, 0)