Не работает код (Классы в ВБ) - VB

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

Здраствуйте любезнийшие... Есть такой код...

                    Листинг программы
                
 
                        
                          
                    
Public Zveno() As clZveno
Public top_Zveno As clZveno
 
Public Sub CreateZveno()
Dim StartTime As Long, StopTime As Long
Dim I As Integer, J As Integer
Dim mLen As Integer, mStr As String
Dim ptr As clZveno
    StartTime = GetTickCount()
'-------------------------------------------------------------------
'    Set ptr = New clZveno
    I = 0
    ReDim Zveno(I)
    Set Zveno(0) = New clZveno
'    Set Zveno(0).NextZveno = Nothing
'    Set Zveno(0).DownZveno = Nothing
'    Zveno(0).zBukva = '+'
    
'    Set ptr = Zveno(0)
    
    For I = 1 To 10
    Set ptr = Zveno(0)
    
        mStr = Trim$(AllPravila(I).Okon1): mLen = Len(mStr)
            For J = 1 To mLen
                If Mid$(mStr, J, 1) = ptr.zBukva Then

И эта скОтина (всмысле Барсик 6.0) кричит на последней строчке, что ptr-Nothing!!! Уже всяко пробовал, сейчас молотком исправлять буду (((

Решение задачи: «Не работает код (Классы в ВБ)»

textual
                            Листинг программы 
                        
Public Zveno As collection
 
...
dim ptr as clZveno
 
set ptr=new clZveno
ptr.gggg ....
 
...
Zveno.add ptr
...
 
Zveno.Item(0)