Dim peer As Peer
Dim hostAddress As Address
Dim deviceAddress As Address
hostAddress = New Address
deviceAddress = New Address
hostAddress.ServiceProvider = Address.ServiceProviderModem
Dim desc As New ApplicationDescription
peer.FindHosts(desc, Nothing, deviceAddress, Nothing, 0, 0, 0, FindHostsFlags.None, 0)