[VB6] Verificare se un computer è connesso ad Internet

[Magicolotto]

Dim localFileName As String
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRefdwflags As Long, ByVal dwReserved As Long) As Long


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

Private Sub Command1_Click()
If IsOnline Then
MsgBox " connnesso "
Else
MsgBox " non connesso"
End If
End Sub