KeyDown-event i DirListBox

Jeg har en DirListBox på en form. (Udover det er der også en DriveListBox)
Hvis jeg dobbeltklikker på en mappe med musen åbnes mappen og jeg kan se undermapper.
Jeg kunne godt tænke mig at der skete noget tilsvarende når jeg trykker på Return - hvad skal jeg indsætte i min KeyDown event:

Private Sub Dir1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
If KeyCode = 13 Then   
    '''Her skal jeg bruge hjælp!
End If
End Sub