[resolved] Dyanmic Control Array - positioning new elements

The code works for the first new element of Cards() but not
for the second or third. It seems to create new elements and
place them on top of one another. I'm not sure why it would
do this.......

All I want if for the new Card(x) to be 200 twips to the left
of the previous card. Any suggestions are appreciated.

VB Code:

Private Sub CreateNewcard()
 
    Load Cards(Cards.UBound + 1)
    MsgBox Cards.UBound
 
    With Cards(Cards.UBound)
        .Container = Cards(Cards.UBound - 1).Container
        .Top = Cards(Cards.UBound - 1).Top
        .Left = Cards(Cards.UBound - 1) + Cards(Cards.UBound - 1).Width + 200
        .Height = Cards(Cards.UBound - 1).Height
        .Width = Cards(Cards.UBound - 1).Width
        .BackStyle = Cards(Cards.UBound - 1).BackStyle
        .BackColor = Cards(Cards.UBound - 1).BackColor
        .Shape = Cards(Cards.UBound - 1).Shape
        .Visible = True
    End With
 
End Sub

reexamine this statement

.Left = Cards(Cards.UBound - 1) + Cards(Cards.UBound - 1).Width + 200

Thanks, I appreciate it.
I'm supprised I didn't get an error.

VB Code:

Private Sub CreateNewcard()
 
    Load Cards(Cards.UBound + 1)
 
    With Cards(Cards.UBound)
        .Container = Cards(Cards.UBound - 1).Container
        .Top = Cards(Cards.UBound - 1).Top
        .Left = Cards(Cards.UBound - 1).Left + Cards(Cards.UBound - 1).Width + 200
        .Height = Cards(Cards.UBound - 1).Height
        .Width = Cards(Cards.UBound - 1).Width
        .BackStyle = Cards(Cards.UBound - 1).BackStyle
        .BackColor = Cards(Cards.UBound - 1).BackColor
        .Shape = Cards(Cards.UBound - 1).Shape
        .Visible = True
    End With
 
End Sub