I have this code in the server, but i can't connect with the wclClient.
Dim API As wclAPIX
Dim WithEvents Server As wclServerX
Sub Form1_Load
Set API = New wclAPIX
Set Server = New wclServerX
Set Discovery = New wclBluetoothDiscovery
API.Load
Server.Listen
End Sub
Private Sub Server_OnData(ByVal Buffer As Variant)
On Error GoTo ErrHandler
Text1.Text = Buffer
ErrHandler:
Exit Sub
End Sub
