how do I call a sub in a button?
B4X:
Sub SendMessage(Topic As String, Title As String, Body As String)
Dim Job As HttpJob
Job.Initialize("fcm", Me)
Dim m As Map = CreateMap("to": $"/topics/${Topic}"$)
B4X:
Sub Button1_MouseClicked (EventData As MouseEvent)
SendMessage()
End Sub