por favor, a ver si podeis ayudarme con esto

[Eternal Idol]

Siendo la lista List1:

For X = 0 To List1.ListCount - 1
If List1.Selected(X) = True Then
'ESTE ES EL ITEM SELECCIONADO
EnableMenuItem(HandleDelMenu,X,MF_DISABLED or MF_BYPOSITION)
End If
Next

Si queres poner todas en un solo listbox seria muy complicado, si pones los items de los submenues en otro listbox seria tan simple como te explique antes.