B4R Question IR send and receive

Sub Process_Globals
   Public Serial1 As Serial
   Private irsend As IrSend
   Private timer1 As Timer
   Public extras As ESP8266extras
   Public dpins As D1Pins
  
End Sub

Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
   irsend.Enable(dpins.D8,38)
  
  
   timer1.Initialize("timer1_Tick", 500)
   timer1.Enabled = True
End Sub

Sub Timer1_Tick
   Dim m As UInt = Bit.And(Millis, 0xfff) 'get 12 bits
   Log("sending: ", m)
   irsend.SendRC5(m, 12)
End Sub