Sub btnOpenComms_Click
Dim PairedDevices As Map
PairedDevices=serial1.GetPairedDevices
Dim L As List
L.Initialize
For i = 0 To PairedDevices.Size-1
L.Add(PairedDevices.GetKeyAt(i))
Next
Dim res As Int
res = InputList(L,"Choose device",-1)
If res <> DialogResponse.CANCEL Then
serial1.Connect(PairedDevices.Get(L.Get(res)))
End If
ProgressDialogShow("Please wait while establishing Bluetooth communications...")
End Sub
Sub serial1_connected(success As Boolean)
ProgressDialogHide
If success Then
Msgbox("Bluetooth connection established OK.","Bluetooth")
DoEvents 'execute the previous instruction!
Else
Label1.Text="Failed to establish Bluetooth connection."
End If
End Sub