You could delegate the select to a separate sub that accepts a string parameter, then call that from code.
Public Sub Menu_Action(MI As MenuItemTextClass)
MenuActionDo(MI.Tag)
End Sub
Private Sub MenuActionDo(Option As String)
Select Case Option
Case "Param01"
'Whatever
End Select
End Sub
Or move whatever is in the select block for the option into a separate sub and call it directly.
Public Sub Menu_Action(MI As MenuItemTextClass)
Select Case Option
Case "Param01"
Param01Do
[CODE=b4x] If A = B then
Dim MI1 As MenuItemTextClass
MI1.inizialize
MI1.SetTag(""Param01")
Main.Menu_Action(MI1) ........
[/CODE][/CODE]
End Select
End Sub
Private Sub Param01Do
'Existing code from select block
End Sub
Private MyCode as sub
...
[/QUOTE]
Yes. Thanks. But I want ro simultate a user selection.
Perhaps sometink like this:
[CODE lang="b4x" title="Add code"] If A = B then
Dim MI1 As MenuItemTextClass
MI1.inizialize
MI1.SetTag(""Param01")
Main.Menu_Action(MI1) ........
[/CODE][/CODE]
Is it correct ?