How to move scroll in to ease browsing files

[matrik02]

I used filelistbox and dirlistbox.. Every time I open the folder in dirlistbox, I have to move the scroll in dirlistbox so that I can see the directory folder inside the selected folder. How to move the scroll in the dirlistbox only the active folder (blue colour) ?


Private Sub Dir1_Click()
Dir1.Path = Dir1.List(Dir1.ListIndex)
End Sub

[zeezee]

try some thing like this

Private Sub Dir1_Change()
    Dir1.TopIndex = Dir1.ListCount
End Sub