Option Explicit
 
    Private Type TMYCLASSES
        ClassName As String
        ClassRef As Class1
    End Type
    Dim tClasses() As TMYCLASSES
    Dim lngClassCount As Long
    Dim blnArrayInited As Boolean
 
Public Function AppendMyClasses(NewName As String)
 
    If blnArrayInited Then
        lngClassCount = lngClassCount + 1
    Else
        blnArrayInited = True
        lngClassCount = 0
    End If
 
    ReDim Preserve tClasses(0 To lngClassCount)
    tClasses(lngClassCount).ClassName = NewName
    Set tClasses(lngClassCount).ClassRef = New Class1
 
    Debug.Print "Class added " & NewName & " with Index " & lngClassCount
 
End Function
 
Public Sub ClearMyClasses()
 
    If Not blnArrayInited Then Exit Sub
 
    Dim i As Long
    For i = 0 To lngClassCount
        Set tClasses(i).ClassRef = Nothing
    Next i
    Erase tClasses()
    ReDim tClasses(0 To 0)
    lngClassCount = 0
    blnArrayInited = False
 
End Sub
 
<pre><code>Wenn das nicht nötig ist kann man das auch so machen...
bsp.:
 
<pre><code>Option Explicit
 
    Dim tClasses() As Class1
    Dim lngClassCount As Long
    Dim blnArrayInited As Boolean
 
Public Function AppendMyClasses()
 
    If blnArrayInited Then
        lngClassCount = lngClassCount + 1
    Else
        blnArrayInited = True
        lngClassCount = 0
    End If
 
    ReDim Preserve tClasses(0 To lngClassCount)
    Set tClasses(lngClassCount) = New Class1
 
    Debug.Print "Class added with Index " & lngClassCount
 
End Function
 
Public Sub ClearMyClasses()
 
    If Not blnArrayInited Then Exit Sub
 
    Dim i As Long
    For i = 0 To lngClassCount
        Set tClasses(i) = Nothing
    Next i
    Erase tClasses()
    ReDim tClasses(0 To 0)
    lngClassCount = 0
    blnArrayInited = False
 
End Sub

Ohne Mampf, kein Kampf !