Collection class

så brug "col.Count = 0"

Private Sub Form_Load()
Dim col As New Collection
  '--- Her er "cl.Count" = 1
  col.Add "ffff"
  Me.Caption = col.Count

  '--- Her er "cl.Count" = 0
  col.Remove 1
  Me.Caption = col.Count

  If col.Count = 0 Then
    MsgBox "Count er tom"
      Else
    MsgBox "Count er ikke tom"
  End If
End Sub

Hvis det er dig selv der har lavet klassen, tror jeg du må have implementeret 'count' forkert. For count=0 virker glimrende i alle de andre Collection's, jeg kender til

a hvad??

er det en "collection" du selv har lavet eller hvad??

Collection har jeg ikke selv lavet det har jeg fået Class Builder til at lave.
Når jeg tester på col.count får jeg en fejlen "<Object variable or With block variable not set>"

Kan du ikke teste om der er oprettet et objekt i først?

Nu er jeg ikke VB skribent :-) men du må vel have en pointer til det første element?

Kan du ikke teste om pointeren peger på NULL?

JP

kan du ikke paste din "collection" kode så vi kan se hvor fejlen?

Option Explicit
Private mCol As Collection

Public Function Add(obj As clsIndex) As clsIndex
  mCol.Add obj
End Function

Public Function Replace(med As clsIndex, nr As Long) As Boolean

  mCol.Remove nr
  If nr <= mCol.Count Then
    mCol.Add med, , nr
  Else
    mCol.Add med
  End If
 
End Function

Public Property Get Item(vntIndexKey As Variant) As clsIndex
  Set Item = mCol(vntIndexKey)
End Property

Public Property Get Count() As Long
    Count = mCol.Count
End Property

Public Sub Remove(vntIndexKey As Variant)
    mCol.Remove vntIndexKey
End Sub

Public Property Get NewEnum() As IUnknown
    Set NewEnum = mCol.[_NewEnum]
End Property

Private Sub Class_Initialize()
    Set mCol = New Collection
End Sub

Private Sub Class_Terminate()
    Set mCol = Nothing
End Sub

Du skal teste om mCol overhovedet er oprettet :
If (TypeName(mCol) = "Nothing") Then MsgBox "Count er tom"

Det virker Mange tak Michael