Listbox Jerrquico y menu contextual

Hola foro,tengo en un listbox jerrquico los siguiente:
Proyectos
Verde
Azul
Rojo
Empresas
Rio S.A.
Niple Solution
Eliminados
0001- PSA43
0052- TDA94
1694- BIN8086

Logre poner un men contextual, pero lo que quiero hacer es que por ejemplo en proyectos tenga un men contextual diferente a empresa y eliminados, es posible esto?

Hola Mike,

Asumiendo que creaste tus datos en el “Open” del listbox:

  Dim i, u as Integer
  Dim m,sm,sSepF,sSepT as String
  
  //Vars
  sSepF=";"
  sSepT=","
  m="Proyectos,Empresas,Eliminados"
  sm="Verde,Azul,Rojo;Rio S.A,Niple Solution;0001- PSA43,0052- TDA94,1694- BIN8086"
  u=CountFields(m,",")
  
  //Creacion lista
  For i=1 to u
    
    If NthField(sm,sSepF,i)<> "" then
      
      Me.AddFolder ""
      Me.Cell(i-1,1)=NthField(sm,sSepF,i)
      
    End if
    
    Me.Cell(i-1,0)=NthField(m,sSepT,i)
    
  Next

Tal vez puedes crear en el evento “ConstructContextualMenu” el menu contextual dependiendo del item seleccionado en lista:

  //Crea menu contextual por opcion en lista
  Select case me.ListIndex
  Case 1 to 3
    base.Append(new MenuItem("Contextual Proyectos",Nil))
  Case 5 to 6
    base.Append(new MenuItem("Contextual Empresas",Nil))
  Case 8 to 10
    base.Append(new MenuItem("Contextual Eliminados",Nil))
  End Select

Y en el evento “ContextualMenuAction” asignas el cdigo a ejecutar dependiendo del menu contextual seleccionado:

  //Ejecuta accion menu contextual
  Select Case hitItem.Text
  Case "Contextual Proyectos"
    MsgBox hitItem.Text
  Case "Contextual Empresas"
    MsgBox hitItem.Text
  Case "Contextual Eliminados"
    MsgBox hitItem.Text
  End Select

Bien, espero que esto te sirva de idea para que puedas resolver tu problema.