Detect When Network Goes Up or Down

Namespace My
    Partial Friend Class MyApplication
        Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
            If e.IsNetworkAvailable Then
                Diagnostics.Debug.WriteLine("Network went up.")
            Else
                Diagnostics.Debug.WriteLine("Network went down.")
            End If
        End Sub
    End Class
End Namespace