How to move scroll in to ease browsing files

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

try some thing like this

Code:

---

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

---

:wave: