• Home
 · 
• Graphics
 · 
• Code That Moves Hundreds Or Thousands Of Objects Over The Form Reccoursively, Resetting The Objects

Code That Moves Hundreds Or Thousands Of Objects Over The Form Reccoursively, Resetting The Objects

Code That Moves Hundreds Or Thousands Of Objects Over The Form Reccoursively, Resetting The Objects Position To "0 - The Objects Width" (Only

Rate Code That Moves Hundreds Or Thousands Of Objects Over The Form Reccoursively, Resetting The Objects

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim StoneNo As Long
For StoneNo = 0 To 237
If Stone(StoneNo).Left >= Me.ScaleWidth Then Stone(StoneNo).Left = -Stone(StoneNo).Width Else Stone(StoneNo).Left = Stone(StoneNo).Left + 15
Next StoneNo
End Sub