Sub connect_device
Dim pairedDevice As Map
pairedDevice = serial1.GetPairedDevices
Dim IL As List
IL.Initialize
For i=0 To pairedDevice.Size-1
IL.Add(pairedDevice.GetKeyAt( i ))
Next
Dim res As Int
res = InputList(IL," BT devices :",-1)
If res <> DialogResponse.CANCEL Then
serial1.Connect(pairedDevice.Get (IL.Get ( res)))
End If
End Sub