Button to make another picture appear( in a Array)...

[$uper-$tar]

Hey,

I had this code awhile ago, but now I forget how i did this...

I want to have when the cmdButton is clicked it would create another picture (A Array of the same Picture).

Do you kinda get me?

Like When use hits space... [X] a picture appears... then user hits again [X] another one is made... and so on...

~$uper-$tar

[alkatran]

assuming the picture is stored in picture1...

dim a as integer
dim b as integer

private sub command1_click()
form1.paintpicture picture1.picture, 0, 0, picture1.width, _
picture1.height, a, b, picture1.width, picture1.height, srccopy
a=a+picture1.width
if a > form1.width then a = 0: b = b + picture1.height
end sub

this will make it copy the picture from picture1 to the form in a different spot (a,b) everytime u click.

[$uper-$tar]

[/Highlight]
'This Creates LiL Squares that stack on top of each other..

Private iBoxCount As Integer
Dim intadd As Integer
Dim intcount As Integer

Private Sub Form_Load()
iBoxCount = 1
intTop = 125
End Sub

Private Sub Timer1_Timer()
intcount = intcount + 1
intadd = intadd - 150
'Load a new shape
iBoxCount = iBoxCount + 1
Load shpBox(iBoxCount)
'Should put set it at a random spot?
intTop = shpBox(iBoxCount).Top + intadd
'Apply it?
shpBox(iBoxCount).Top = intTop
shpBox(iBoxCount).Visible = True
End Sub