Attribute VB_Name = "Module1"
Option Explicit
Public col As Collection
Public IdxCount As Integer

Sub Main()
   Set col = New Collection
   Call col.Add(New Class1)
   Call col.Add(New Class1)
   Call col.Add(New Class1)
   Call col.Add(New Class1)
   
col.Remove (1)

End Sub