Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim host As String = "vbarchiv.de"
        Debug.WriteLine("Result: " + Ping(host).ToString)
    End Sub
 
    Private Function Ping(ByVal Host As String) As Boolean
        Dim p As System.Diagnostics.Process
        Try
            p = New System.Diagnostics.Process
            With p
                .StartInfo.UseShellExecute = False
                .StartInfo.CreateNoWindow = True
                .StartInfo.RedirectStandardOutput = True
                .StartInfo.Arguments = Host + " -n 2"
                .StartInfo.FileName = "ping"
                .StartInfo.WindowStyle = ProcessWindowStyle.Maximized
                .Start()
                .WaitForExit()
                Debug.WriteLine(p.ExitCode.ToString())
                Return (p.ExitCode = 0) '// 0 == okay, 1 == failure
            End With
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
        End Try
    End Function