imports inthehand.net.bluetooth
imports inthehand.net.sockets
 
 
dim btClient as new inthehand.net.sockets.BluetoothClient
 
dim btdevs() as BluetoothDeviceInfo = btClient.DiscoverDevices()
 
listbox1.DisplayMember="DeviceName"
listbox1.ValueMember = Nothing
listbox1.DataSource= btdevs