ListBox en visual basic

[carlosdltp]

Hola a todos, tengo un DirListBox y quiero que cuando me mueva por los directorios me muestre los ficheros que contiene en un ListBox, ya se que para esto está el FilelistBox, pero necesito que sea en un listBox y no se como hacerlo.Necesito ayuda.

Muchas gracias.

[pabli]

Código:

Private Sub DirListBox1_Change()
    Dim S_string As String
    
    List1.Clear
    S_string = Dir(DirListBox1.Path, vbNormal)   ' Recupera la primera entrada.
    Do While S_string <> ""   ' Inicia el bucle.
        List1.AddItem S_string
        S_string = Dir   ' Obtiene siguiente entrada.
    Loop

End Sub