Forse se ci spieghi lo scopo finale, si potrebbe trovare un'alternativa.
        
        
     
'Evidenziazione bottone premuto e memorizzazione Id bottone (SelectedMainCommandButtonId)
private Sub CommandPressed_HighLight(Id As Int)
        
    Dim Cmd As B4XView
    
    Sleep(0)
    
    Cmd = MainCommands.Get(Id)
    
  
  CallSub(Me,Cmd.Tag & "_Click")
    
    cmdHighLighting.Left = Cmd.Left-2.5dip
    cmdHighLighting.Top = Cmd.top-2.5dip
    cmdHighLighting.As(B4XView).SetColorAndBorder(Colors.yellow,1dip,Colors.Yellow,5dip)
    cmdHighLighting.Visible = True
    
    Wait For (Functions.WaitFor_Milliseconds(500)) Complete(Result As Boolean)
    cmdHighLighting.Visible = False
        
    'Una volta premuto il comando resetto la variabile
    SelectedMainCommandId = -1
End Sub
Lo schermo non è Touch poi spiegare il tutto è un casino troppo lungo...??