por favor, a ver si podeis ayudarme con esto

[Eternal Idol]

Teniendo el siguiente codigo:

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

Lo que tenes que hacer es que Ventana corresponda al Handle de la ventana del MediaPlayer y tiene que funcionar sin problemas, yo lo he probado y funciona.