[resolved] Dyanmic Control Array - positioning new elements

[jcfowl]

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.

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

[phinds]

reexamine this statement

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

[jcfowl]

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

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