Okay i have 9 squares and I am filling them with pictures from a picture clip control. THis code which i whipped up is supposed to randomize it.
Do Until i = 8
i = i + 1
begin:
card = Rnd2(1, 8)
If slots(card) = "picture" Then
GoTo begin
Else
pslot(card).Picture = data.GraphicCell(i)
slots(card) = "picture"
End If
Loop
But it stops responding.
Brad,
Free mp3 player,games and more.
Do Until i = 8
i = i + 1
begin:
card = Rnd2(1, 8)
If slots(card) = "picture" Then
GoTo begin
Else
pslot(card).Picture = data.GraphicCell(i)
slots(card) = "picture"
End If
Loop
But it stops responding.
Brad,
Free mp3 player,games and more.