para Eternal Idol

[Eternal Idol]

A ver mi codigo es este con excepcion del msgbox que te tiene 273, sino WM_COMMAND no es visible en esa parte del codigo y ahi esta el problema:

Dim SubMenu As Long
Dim y As Long
Dim Item As Long

For y = 0 To List1.ListCount - 1
If List1.Selected(y) = True Then
SubMenu = GetSubMenu(hMenu, y)
End If
Next

For y = 0 To List2.ListCount - 1
If List2.Selected(y) = True Then
Item = GetMenuItemID(SubMenu, y)
SendMessage Ventana, WM_COMMAND, Item, 0
MsgBox WM_COMMAND
End If
Next