Sub Button1_Click
If Flaga=False Then
Dim Urzadzenia As Map
Dim Lista As List
Dim Wybierz As Int
Urzadzenia=Adapter.GetPairedDevices
Lista.Initialize
For i=0 To Urzadzenia.Size-1
Lista.Add(Urzadzenia.GetKeyAt(i))
Next
Wybierz=InputList(Lista,"Wybierz urządzenie",-1)
If Wybierz >= 0 Then
Timer1.Enabled=False
Timer2.Enabled=True
Button1.Enabled=False
Adres=Urzadzenia.GetValueAt(Wybierz)
Nazwa=Urzadzenia.GetKeyAt(Wybierz)
Adapter.Connect3(Adres,1)
End If
Else
Strumien.Close
Adapter.Disconnect
Flaga=False
End If
End Sub