Prima usavo questa funzione ma non riesco a farla andare mi aiutate?:


codice:
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
    lpSFlags As Long, ByVal dwReserved As Long) As Long

e poi nella routine mettevo:

codice:
Dim flags As Long
If InternetGetConnectedState(flags, 0) = 0 Then
ho sostituito le variabili long con integer, ma continua a non funzionare qlc conosce il motivo?