por favor, a ver si podeis ayudarme con esto

[Eternal Idol]

Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Private Sub Command1_Click()
For y = 0 To List1.ListCount - 1
If List1.Selected(y) = True Then
'ESTE ES EL ITEM SELECCIONADO
EnableMenuItem hmenu, y, MF_ENABLED Or MF_BYPOSITION
End If
Next
End Sub

Asi me funciona, probalo por favor.