Sub Button_Click
'BT transmission protocol from tablet TO base unit (one byte)
'81 (Start game 1) Or 82 (Start game 2) Or 83 (Start game 3)
'8F (Stop current game)
Dim buffer(0) As Byte
If Button.Text="START" And TLRB.Checked=True Then
buffer(0) = -2
Else If Button.Text="START" And CNRB.Checked=True Then
buffer(0) = -3
Else If Button.Text="START" And BCRB.Checked=True Then
buffer(0) = -1
Else If Button.Text="STOP" Then
buffer(0) = -15
End If
AStreams.Write(buffer)
End Sub