Namespace My

    Class MyApplication

        Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, _
                    ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) _
                    Handles Me.NetworkAvailabilityChanged
            If (e.IsNetworkAvailable = True) Then
                MessageBox.Show("ネットワークに接続されました。")
            Else
                MessageBox.Show("ネットワークが切断されました。")
            End If
        End Sub
    End Class

End Namespace