GefObjectEvent.TranslateMenuText (property)

Gets and sets if the menu text should be translated of the context menu item event.
Syntax: Boolean = object.TranslateMenuText
object.TranslateMenuText = Boolean
Description: This property is only valid for events whose Type is gefEventRBMenuItem


Sub GefObjectEvent_ContextMenuItem()
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    Set oCimObjEvnt = oCimObjEvnts.Item(0)
    If Not oCimObjEvnt Is Nothing Then
      If oCimObjEvnt.Type = gefEventRBMenuItem Then
        oCimObjEvnt.TranslateMenuText = True
      End If
    End If
End Sub