Imports System.Net.NetworkInformation.Ping
 
Module Module1
 
 
 
    Sub Main()
        Dim ip As String
        ip = "google.de"
        Dim insPing As New System.Net.NetworkInformation.Ping() 'Instanz 
        ' erstellen
        Dim PingAntwort As System.Net.NetworkInformation.PingReply = _
          insPing.Send(ip) 'Antwort merken
 
 
        Select Case PingAntwort.Status
            Case Net.NetworkInformation.IPStatus.Success
                MsgBox("Erfolgreich")
 
            Case Else
                MsgBox(PingAntwort.Status.ToString())
        End Select
 
        '######################################
 
 
    End Sub
 
End Module