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...??