por favor, a ver si podeis ayudarme con esto

[Eternal Idol]

Si, pone el boton y usa el codigo del mismo:

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)
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
End If
Next
End Sub