Vb Net Bluetooth Vbforums [upd]

Public Sub SendData(device As BluetoothDeviceInfo, message As String) Dim ep As New BluetoothEndPoint(device.DeviceAddress, BluetoothService.SerialPort) Dim client As New BluetoothClient() client.Connect(ep)

For Each device As BluetoothDeviceInfo In devices ' Display device name and address Console.WriteLine("Device: " & device.DeviceName & " - " & device.DeviceAddress.ToString()) Next End Sub End Class