Thanks a lot Kevin


Saludos


>3. In the ShortCutDefine( ) method, add calls to the AddMenuItem() method for each menu item in the shortcut menu. Set parameter 1 to the menu text and set parameter 2 to the command that is run when the menu item is selected. For example:
>
> This.AddMenuItem('New', 'ThisForm.New()')
> This.AddMenuItem('Delete', 'ThisForm.Delete()')
>
> You can specify a particular menu item to be dimmed by prefixing the menu text with a backslash "\" character. Here’s an example:
>
> lcPrefix = IIF(ThisForm.nSelected = 0, '\', '')
> This.AddMenuItem(lcPrefix + 'Delete', 'ThisForm.Delete()')
>
>Regards,