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

If OnlState.isOnline("") = True Then
' irgendwelcher code
Else
' irgendwelcher code
End If