Imports System.Runtime.InteropServices
 
Public Class CheckOnline
 
    Private Declare Auto Function InternetCheckConnection Lib "wininet.dll" ( _
          ByVal lpszUrl As String, _
          ByVal dwFlags As Long, _
          ByVal dwReserved As Long) As Long
 
    Private Const FLAG_ICC_FORCE_CONNECTION As Long = &H1
 
    Public Function isOnline(ByVal url As String) As Boolean
 
        If (InternetCheckConnection(url, FLAG_ICC_FORCE_CONNECTION, 0)) = 0 Then
            Return (False)
        Else
            Return (True)
        End If
 
    End Function
 
End Class

Dim OnlState As New CheckOnline
 
If OnlState.isOnline("http://www.google.de") = True then bla bla bla