B4J Question Assign an Event Name to Nodes

Sub CreateButtons As Button
    Dim TopStart As Int:TopStart=140
    Dim Top As Int:Top=1
    Dim left As Int:left=1
    Dim Count As Int:Count=0
    Dim mp As Map:Dim lst As List
    
    lst.initialize
    strquery="SELECT MenuItemID from MenuItem order by MenuCode"
    DBUtils.ExecuteList(Main.SQL1,strquery,Null,0,lst)
    
    For i= 0 To lst.Size-1
        
        strQuery1="Select MenuitemID, MenuItem.menuCode,MenuItem.menuitem, MenuGroup.GroupName, MenuGroup.GroupNumber from MenuGroup INNER JOIN MenuItem on MenuGroup.GroupID=Menuitem.GroupID where menuitemID=" &lst.Get(i)& " ORDER BY MenuCode"
        mp.initialize
        mp=DBUtils.ExecuteMap(Main.SQL1,strQuery1,Null)
        'create 14 button per row
        If Count=14 Then
            Top=(((i)/14)*80)
            left=1
            Count=0
        End If
        
        btnOrder.Initialize(btnOrder_Action)
        btnOrder.Tag=mp.Get("menucode")
        btnOrder.TextSize=12
        btnOrder.Text=mp.Get("groupname")&CRLF&mp.Get("menucode")&CRLF&mp.Get("menuitem")
        btnOrder.WrapText=True
        btnOrder.Id=i
        
        
        frmOrderSelect.RootPane.LoadLayout("OrderSelect")
        frmOrderSelect.RootPane.AddNode(btnOrder,(left*Count)*100,Top+TopStart,100,80)
        Count=Count+1
        
    Next
    
End Sub

Sub btnOrder_Action
    Dim btn1 As Button
    Log("click")
    Try
btn1 =Sender
Log( btn1.tag)
Catch
    Log (LastException)
    
    End Try
End Sub

Sub Globals
    Private B4XSwitch1 As B4XSwitch
End Sub