Foros del web
Iniciar Sesión
For i = 0 To List1.ListCount - 1 List1.ListIndex = i If List1.Selected(i) = True Then MsgBox i Next