Imports System.Runtime.InteropServices
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim OnlState As New CheckOnline
        With OnlState
            If .isOnline("http://www.vbarchiv.net/") Then
 
            Else
 
            End If
        End With
    End Sub
End Class
 
 
Public Class CheckOnline
    Private Declare Auto Function InternetCheckConnection Lib "wininet.dll" ( _
          ByVal lpszUrl As String, _
          ByVal dwFlags As Integer, _
          ByVal dwReserved As Integer) As Integer
 
    Private Const FLAG_ICC_FORCE_CONNECTION As Integer = &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