'***Public**********************************************************************
'
'  Procedure:  Function Item(...) As cClassX
' Parameters:  ByVal vIndex As Variant
'     Return:  cClassX
'
'Description:  Get a ClassX at given index.
'              Index can be either a number or a Key.
'
'! Remember settings: ProcedureAttributes-->Item:ProcedureID=Default         
'                                  !!!
'*******************************************************************************
Public Function Item(ByVal vIndex As Variant) As cClassX
   On Error Resume Next
   Set Item = mcol_ClassX.Item(vIndex)
End Function

Gruß
Dirk

--
?Get it right the first time