Sub SetPosition()
   Dim sKey As String
 
For Y = 0 To background.Height
   DoEvents
   tmpY = tmpY + 1
   For X = 0 To background.Width
        DoEvents
        tmpX = tmpX + 1
 
        'Koordinatenzuweisung
        Set Cell = New clsCells
        With Cell
             .X = X
             .Y = Y
             .Right = X + 1000
             .Bottom = Y + 1000
        End With
 
        'Cell-Addresse bestimmen
        sKey = Trim(Str(tmpY)) + ":" + Trim(Str(tmpX))
 
         'Cell-Klasse in die Collection einfügen
        Cells.Add Cell, sKey
 
    Next X
Next Y
End Sub