Identify if a networki nterface is wireless

Private Sub GetNetworkInformation()
        Dim IP As String = String.Empty
 
        '// Only proceed if there is a network availible
        If NetworkInterface.GetIsNetworkAvailable Then
 
            '// Get the set of all NetworkInterface objects for the local machine
            Dim interfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces
 
            '// Iterate through the interfaces
            For Each ni As NetworkInterface In interfaces
                m_InterfaceNames.Add(ni.Name)
                '// Iterate through the current interface (ni)
                For Each addr As UnicastIPAddressInformation In ni.GetIPProperties.UnicastAddresses
                    m_IpAddresses.Add(addr.Address)
                Next
            Next
 
        End If
    End Sub