Проблемы при работе с FSO. - VB

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

Вот кусок (скорее кусочек) программы:

Option Explicit
Dim NewFSO As New FileSystemObject, Folder
 
Private Sub Form_Load()
Dim x As Integer
    Set Folder = NewFSO.GetFolder("c:\Dist")
    For x = 1 To Folder.SubFolders.Count
            List1.AddItem Folder.SubFolders(x).Name
    Next
End Sub

Все просто, но на строку 'List1.AddItem Folder.SubFolders(x).Name' компилятор выдает 5-ю ошибку ('Недопустимый вызов процедуры или параметра'). В чем дело, вроде бы все нормально должно быть?

Решение задачи: «Проблемы при работе с FSO.»

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

                            Option Explicit
Dim NewFSO As New FileSystemObject, Fldr as Folder
 
Private Sub Form_Load()
Dim x As Folder
Set Fldr = NewFSO.GetFolder("c:\Dist")
For each x in Folder.SubFolders
 List1.AddItem x.Name
next x
End Sub
                        