Отобразить в ComboBox имена папок из заданного каталога - VB

Формулировка задачи:

Всем добрый день! Каким образом добавить в ComboBox строки, чтобы им присваивались названия папок из указанной папки? Т.е. имеется папка "ПППП" в ней лежат папки "ППП1", "ППП2", "ППП3" и тд. Задача в том, чтобы при нажатии commandButton в Combo Box появлялся список папок "ППП1", "ППП2" и тд. А затем при выборе определенной папки в ComboBox в ListBox отображались бы файлы этой папки. Это возможно реализовать? Всем спасибо! З.ы.: я новенький и прошу не ругать!

Решение задачи: «Отобразить в ComboBox имена папок из заданного каталога»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Picture1.Picture = LoadPicture(Combo2.Path + "\" + Combo2.FileName)
End Sub
                        