Visual Basic - Doble click en DirListBox

Buenas,
en un objeto tipo DirListBox, se quiere que se simule el doble click, de modo que al primer click sobre una carpeta/directorio, ésta se despliegue.

¿Cómo se podría hacer?
Si es posible, evitar el método de path y listIndex, ya que interesa subir de nivel y que las carpetas se cierren.
Gracias.

Puedes simularlo con un keypress del siguiente modo:

Private Sub Dir1_Click()
Dir1_KeyPress (13)
End Sub

Private Sub Dir1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Dir1.Path = Dir1.List(Dir1.ListIndex)
End Sub

Un truco así de fácil, de este modo funciona tanto bajando como subiendo.
Poniendo Dir1.Path = Dir1.List(Dir1.ListIndex) directamente en el dir1_click, no está garantizado el correcto funcionamiento subiendo (cerrando) carpetas.

Espero que te sea de utilidad.

Funciona perfectamente, gracias