Zet (Set) class in LotusScript

Public Class Zet As Vector
   'declarations
   Private pValues As Vector

   '/**
   ' * Constructor.
   ' */
   Public Sub New()
      Set Me.pValues = New Vector()
   End Sub

   '/**
   ' * Adds only unique elements.
   ' */
   Public Sub AddElement(d As Variant)
      'see if the vector contains this element already
      If Not Me.pValues.Contains(d.UniversalID) Then
         Call Vector..AddElement(d)
         Call Me.pValues.AddElement(d.UniversalID)
      End If
   End Sub

   Public Function Size() As Integer
      Size = Vector..Size()
   End Function

   Public Function Elements() As Enumeration
      Set Elements = Vector..Elements()
   End Function

End Class