Visual Basic 6 - verificare connessione a internet

un modo sarebbe aprire un url con l' inet e funziona il problema è che devo metterlo nel load del forme ci mette un po ad aprirsi
nn cè un modo + rapido?

Ci mette un po' ma non per la Inet ... comunque puoi utilizzare la API InternetCheckConnection ...

In un form

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" _ 
(ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
  If InternetCheckConnection("http://www.pierotofy.it", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
    MsgBox "Connessione fallita!", vbInformation
  Else
    MsgBox "Connessione ok!", vbInformation
  End If
End Sub

grazie 1000

lo so che nn dipende inet, ma dal fatto che deve prima caricare tutta la pagina

cmq ho trasformato il codice in una funzione che restituisce un valore booleano
a chi interessa...

private function Internet()
internet=cbool(InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0&))
end function