Sub butConnect_Click
Dim PairedDevices As Map
PairedDevices = Main.o_Serial.GetPairedDevices
Dim l As List
l.Initialize
For i = 0 To PairedDevices.Size - 1
lcPrinterName = PairedDevices.GetKeyAt(i)
l.Add(lcPrinterName)
Next
Dim res As Int
res = InputList(l, "Select Printer", -1)
If res <> DialogResponse.CANCEL Then
lcPrinterAddress = PairedDevices.Get(l.Get(res))
lcPrinterName = l.Get(res)
Msgbox("Conectarse a: " & l.Get(res), lcPrinterAddress)
Main.o_Serial.Connect(lcPrinterAddress)
End If
End Sub