how to get active network connection name

[bergerkiller]

Not sure if this helps:

    Public Shared ReadOnly Property CurrentIPs() As String()
        Get
            Dim ips As New List(Of String)
            Dim addresses() As Net.IPAddress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList
            For i As Integer = addresses.Count / 2 To addresses.Count - 1
                ips.Add(addresses(i).ToString)
            Next
            Return ips.ToArray
        End Get
    End Property

Look for functions under System.Net and/or System.Net.Dns for some network information.