Try
            Dim WS As String
            For Each WS In ListBox1.Items()
                If My.Computer.Network.Ping(WS, 1000) Then
                    MessageBox.Show(WS)
                End If
            Next
        Catch err As ManagementException
            MessageBox.Show("Fehler: " & err.Message)
        End Try