por favor, a ver si podeis ayudarme con esto

[Eternal Idol]

Claro tiene que haber un item seleccionado de la listbox2, es el que se va a ejecutar, los submenues principales no se pueden ejecutar.

No se que problema habra entonces... proba a ver si estos dos mensajes nuevos tienen valores y si son razonables:

Private Sub Command1_Click()
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)
MsgBox SubMenu
MsgBox "Elemento seleccionado del primer listbox " & 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 Item
MsgBox "Elemento seleccionado del segundo listbox " & y
End If
Next
End Sub