.NET 4.x Сетевые подключения - как отключить или подключить соединение с интернет? - Visual Basic .NET

Формулировка задачи:

                    Листинг программы
                
Imports System.Net.NetworkInformation
Dim Configuration As NetworkInterface()
 
Configuration = NetworkInterface.GetAllNetworkInterfaces()
Label1.Text = "Текущее подключение : " & Configuration(0).Name

Получил имя соединения с интернет Configuration(0).Name И вопрос как отключить и подключить это соединение ?

Решение задачи: «.NET 4.x Сетевые подключения - как отключить или подключить соединение с интернет?»

textual
                            Листинг программы 
                        
Imports System 
Imports Shell32 
 
Public Class Form1 
 
    'Отключение - включение локальной сети 
 
    Shared Sub OnOff() 
 
        Dim shell As New ShellClass() 
 
        Dim folder As Folder = shell.[NameSpace](3) 
 
        ' панель управления 
 
        For Each controlPanelItem As FolderItem In folder.Items() 
 
            Dim name As String = controlPanelItem.Name.ToLower() 
 
            If name = "сетевые подключения" Then 
 
                Dim networkConnections As Folder = DirectCast(controlPanelItem.GetFolder, Folder) 
 
                For Each networkConn As FolderItem2 In networkConnections.Items() 
 
                    name = networkConn.Name.ToLower() 
 
                    ' первым всегда идёт "отключить" или "подключить", зависит от текущего состояния 
 
                    Dim verbDisable As FolderItemVerb = networkConn.Verbs().Item(0) 
 
                    ' врубаем/вырубаем его 
 
                    verbDisable.DoIt() 
 
                Next 
 
            End If 
 
        Next 
 
    End Sub