Gracias, esque es la primera vez que uso vb6 y no podía buscar eso puesto que desconocía su existencia.
Mi código sólo es
Private Sub List1_Click()
Select Case List1.ListIndex
        Case Op1
               MsgBox "Op1"
        Case Op2
               MsgBox "Op2"
End Select
End Sub

Poniéndolo entre "" lo que consigo esque me marque error 13 una falta. y subraye el Case op1

Ahora me leeo el tuto.

perdon no me fije que era un long o integer, no lo pongas entre comillas, pero como dice pollo1, debes declarar previamente op1 o op2 como integer y setearle el valor.. sino la variable pasa a ser nula o 0 y nunca te va a caer el case dentro de cada opcion...

y si no sabias eso, leete un manualsito basico..


saludos