Vb Net Bluetooth Vbforums

Public Sub SendViaComPort(comPort As String, data As String) Using sp As New SerialPort(comPort, 9600, Parity.None, 8, StopBits.One) sp.Open() sp.WriteLine(data) sp.Close() End Using End Sub

' Discover devices (this returns an array of BluetoothDeviceInfo) Dim devices() As BluetoothDeviceInfo = client.DiscoverDevices() vb net bluetooth vbforums

Imports System.Net.Sockets Imports System.Device Public Sub SendViaComPort(comPort As String, data As String)

End Function