Zitat:

aber ich, als alter java-programmierer *gg*, steh auf daten-kapselung und möchte daher das ganze über die zugriffsmethoden lösen

Option Explicit
 
Private c As Collection
 
Public Property Get MyCol() As Collection
  Set MyCol = c
End Property
 
Private Sub Class_Initialize()
  Set c = New Collection
  c.Add "Temp"
End Sub

Option Explicit
Dim a As New Class1
 
Private Sub Form_Load()
  MsgBox a.MyCol.Count
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.