[VB6] Verifica connessione a Internet

[oregon]

Ti ho detto che si usa una API, quella che ti ho indicato.

Non c'entrano i controlli, ne' quelli standard ne' altri ...

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef
dwflags As Long, ByVal dwReserved As Long) As Long

Public Function IsOnline() As Boolean
  Dim LFlags As Long
  IsOnline = InternetGetConnectedState(LFlags, 0&)
End Function