'load 100 objects
master=LoadObject("Media\cow.bmp",72)
For i=1 To 100
temp=CloneObject(master) 'prefer to clone.. it's faster
PositionObject temp,Rand( -200,200),Rand( -150,150)
Next i
Color cbblack
AddText "Press SPACE to clear all objects..."
ClsColor cbpink