Public Function Cells(Byval Row As Long, Byval Column As Long) As Variant
 
     'Achtung: Es wird die Collection Cells verwendet, deren Key Eigenschaft 
     ' sich so 
     'zusammensetzt: "Y:X" = Zeile, Spalte
      Dim sKey As String
 
      If Row = 0 Or Column = 0 Then Exit Function
 
     sKey = Trim(Str(Row)) + ":" + Trim(Str(Column))
     On Error Resume Next
     Cells = tmpCells(sKey).Text
 
End Function

UserControl - Initialize - Event
 
Dim sKey As String
 
For Y = 0 To Länge
   tmpY = tmpY +1
   For X = 0 To Breite
        tmpX = TmpX +1
 
        'Koordinatenzuweisung
        Set Cell = New clsCell
        With Cell
             .X = X
             .Y = y
             .Right = x + Cellenbreite
             .Bottom = y + Cellenhöhe
        End With
 
        'Cell-Addresse bestimmen
        sKey = Trim(Str(tmpY))+":"+Trim(Str(tmpX))
 
         'Cell-Klasse in die Collection einfügen
        Cells.Add Cell, sKey
 
    Next
Next