Inserire Nome COnnessione listView

'   Con questa procedura si carica l'elenco delle schede di rete del PC in una listView. 
  ''' <summary>
  ''' Carica le schede di rete trovate nel PC
  ''' </summary>
  ''' <param name="listViewToFill">ListView in cui caricare</param>
  ''' <remarks>La listview deve avere tre colonne</remarks>
  ''' <example>CaricaNic(ListView1)</example>
  Private Sub CaricaNic(ByVal listViewToFill As ListView)
    Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
    For Each adapter As NetworkInterface In adapters
      Dim lvi As New ListViewItem(adapter.Name.ToString())
      lvi.SubItems.Add(adapter.Id)
      Dim adapterProperties As IPInterfaceProperties = adapter.GetIPProperties
      Dim addresses As GatewayIPAddressInformationCollection = adapterProperties.GatewayAddresses
      If addresses.Count > 0 Then
        Dim gip As GatewayIPAddressInformation = addresses(0)
        lvi.SubItems.Add(gip.Address.ToString)
      End If
      listViewToFill.Items.Add(lvi)
    Next
  End Sub

' Con questa procedura si carica l'elenco delle schede di rete del PC in una listView.

''' <summary>

''' Carica le schede di rete trovate nel PC

''' </summary>

''' <param name="listViewToFill">ListView in cui caricare</param>

''' <remarks>La listview deve avere tre colonne</remarks>

''' <example>CaricaNic(ListView1)</example>

Private Sub CaricaNic(ByVal listViewToFill As ListView)
Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
For Each adapter As NetworkInterface In adapters
Dim lvi As New ListViewItem(adapter.Name.ToString())
lvi.SubItems.Add(adapter.Id)
Dim adapterProperties As IPInterfaceProperties = adapter.GetIPProperties
Dim addresses As GatewayIPAddressInformationCollection = adapterProperties.GatewayAddresses
If addresses.Count > 0 Then
Dim gip As GatewayIPAddressInformation = addresses(0)
lvi.SubItems.Add(gip.Address.ToString)
End If
listViewToFill.Items.Add(lvi)
Next
End Sub