Problemer med Collection

[Richard87]

Private Sub Server_ConnectionRequest(ByVal Index As Variant, ByVal requestID As Long)
   Dim TS2 As New typeSOCK
   Dim X As Long, lPos As Long, bFound As Boolean
   
   bFound = False
   For X = 0 To Host.ArrayCount - 1
       If Host.State(Index) <> sckConnected Then
           bFound = True
           lPos = X
           Exit For
       End If
   Next X
   
   If Not bFound Then
       lPos = Host.ArrayAdd
   End If
   
   Host.CloseSck lPos
   Host.Accept lPos, requestID
   
   TS2.State = 0
   TS2.HostIndex = lPos
   
   TS.Add TS2
End Sub

 

Kan noen forklare hvorfor jeg far RunTime error 91 pa "TS.Add TS2"?

 

(Error 91: Object Variable or With block variable not set)

 

Trenger Hjelp!

 

 

[EDIT] Fixet.. .Gjorde om Dim TS as collection til Dim TS as new collection ...

Endret 10. januar 2006 av Richard87