' -----------------------------------------------------------------
' Anzahl der Objekte durchreichen
' -----------------------------------------------------------------
 
Public Function Add(ByVal lTop As Long, _
  ByVal lLeft As Long, _
  ByVal lWidth As Long, _
  ByVal lHeight As Long, _
  ByVal sName As String, _
  ByVal iFontSize As Single) As clsControl
 
  On Local Error GoTo 0
  ' -------------------------------- Eigenschaften zuweisen
  Dim objNewMember As clsControl
  Set objNewMember = New clsControl
  With objNewMember
    .Top = lTop
    .Left = lLeft
    .Height = lHeight
    .Width = lWidth
    .Tag = mCol.Count + 1
    .name = sName
    .FontSize = iFontSize
  End With
 
  ' -------------------------------- Objekt der Collection zuweisen
  mCol.Add objNewMember, sName
  ' -------------------------------- Objekt zurückgeben
  Set Add = objNewMember
  ' -------------------------------- neues Objekt zerstören
  Set objNewMember = Nothing
End Function