Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Boolean
Public Function IsConnected() As Boolean
Dim Desc As Integer
Return InternetGetConnectedState(Desc, 0)
End Function