Archived Forums

Option Explicit
Sub Test()
    Dim pMI As IMultiItem
    Set pMI = CreateObject("esricore.ToolbarContextMenuItems")
    
    Dim l As Long
    For l = 0 To pMI.OnPopup(Application) - 1
        If pMI.ItemChecked(l) Then
            Debug.Print "ON: " & pMI.ItemCaption(l)
        Else
            Debug.Print "OFF: " & pMI.ItemCaption(l)
        End If
    Next l
End Sub

Option Explicit
Sub Test()
    Debug.Print IsVisible("Effects")
    Toggle "Effects"
    Debug.Print IsVisible("Effects")
    
End Sub

Sub Toggle(sCaption As String)
    Dim pMI As IMultiItem
    Set pMI = CreateObject("esricore.ToolbarContextMenuItems")
    
    Dim l As Long
    For l = 0 To pMI.OnPopup(Application) - 1
        If UCase(pMI.ItemCaption(l)) = UCase(sCaption) Then
            pMI.OnItemClick (l)
        End If
    Next l
End Sub

Function IsVisible(sCaption As String) As Boolean

    Dim pMI As IMultiItem
    Set pMI = CreateObject("esricore.ToolbarContextMenuItems")
    
    Dim l As Long
    For l = 0 To pMI.OnPopup(Application) - 1
        If UCase(pMI.ItemCaption(l)) = UCase(sCaption) Then
            IsVisible = pMI.ItemChecked(l)
        End If
    Next l
End Function