Hola lo tienes fácil pero sera mas difícil lo de la estatua
Haz esta prueba y veras que lo tienes resuelto.
Crea un formulario nuevo y pegas este código y lo pruebas.
Option Explicit
Dim Qid As Integer
Private Sub Form_Load()
Qid = -1 ' Le ponemos -1 para que no lo reconozca al iniciarse o te daría error, ya que el primer valor del listbox es el 0
End Sub
Private Sub List1_Click()
If List1.ListIndex = Qid Then Exit Sub ' Esto bloquea que se pique varias veces seguidas
''''''''''''
'' Aquí dentro lo que tiene que hacer, osease, la orden a ejecutar.
''''''''''''
Qid = List1.ListIndex ' Aqui guarda el Item picado
MsgBox Qid
End Sub
Qid recoge el item seleccionado, de manera que si se repite mas veces el mismo, lo bloquea.
Ya me pensare donde quiero la estatua
