por favor, a ver si podeis ayudarme con esto

[Eternal Idol]

A ver vamos a tratar de debuggearlo un poquito (feamente):

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 "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 "Elemento seleccionado del segundo listbox " & y
End If
Next
End Sub

Salen 2 mensajes? Que elementos dice que estan seleccionados?