Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
        System.EventArgs) Handles Button1.Click
 
            ' ....
 
 
            Dim p As Process = Process.Start("cmd.exe", "/C ipconfig/flushdns")
            p.WaitForExit()
 
            If PingHostOrIP("l2authd.lineage2.com") Then
                  ' was immer...
            End If
 
        End If
 
    End Sub
 
 
    Public Shared Function PingHostOrIP(ByVal HostOrIP As String) As Boolean
        Try
            Return My.Computer.Network.Ping(HostOrIP)
        Catch
        End Try
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov