Evento ListBox

hola, Fabian !

Private Sub ListBox3_Mousedown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button <> 2 Then Exit Sub 'Boton derecho del raton.
Seleccionar el item donde se encuentra el puntero del raton.
End Sub
... el boton derecho del raton dispara... el evento mouseup
... utiliza listbox3.text (item seleccionado) para... una busqueda... llenado de otro listbox
... el temor es que el usuario no seleccione antes con el boton izquierdo, si es posible hacerlo [...]

si te sirve [de momento] una opcion mas 'barata' [y mucho menos 'compicada']...
1) 'aprovecha' la propiedad 'ControlTipText' del listbox [ya sea en tiempo de proyecto o en ejecucion]...
y 'ponle' un texto 'descriptivo/instructivo/...' [p.e.] ->"Haz un doble-click para lanzar el siguiente procedimiento..."<-
2) 'mueve' las instrucciones para el llenado del 'otro' listbox ->al evento '_DblClick' del listbox3<-

si cualquier duda... comentas?
saludos,
hector.
=lo anterior porque [supongo] es 'similar' pedir/obligar/instruir/... al usuario para que...
[primero] seleccione algun elemento de la listbox
[segundo] haga un click-derecho para lanzar el siguiente paso del proceso -?-
QUE... hacer 'un solo' doble-click [que necesariamente se haria sobre algun elemento de la lista] :))
-> si existe la posibilidad de que haya 'campos vacios' en el listbox3... [probablemente]
necesitaras 'condicionar' al evento para que la 'seleccion' coincida con algun elemento 'valido' del listbox [p.e.]
Private Sub ListBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox3.ListIndex = -1 Then MsgBox "Selecciona primero un elemento.": Exit Sub
' aqui el resto de las instrucciones... '
[ademas de que]... te evitas el 'andar buscando' si la posicion [x-y] del mouse 'coincide' con [el x-y de] algun elemento :))