'Tomado de.......: http://blogs.msdn.com/smallbasic/archive/2010/03/08/small-basic-now-with-silverlight.aspx
'Modificado por: Terayop
For i = 1 To 2 'Cantidad de bolitas a generar
balls[i] = Shapes.AddEllipse(25, 25) 'ancho del la bolita
EndFor
While "True"
For i = 1 To 2 'Cantidad de bolitas a administrar
ball = balls[i] 'Array que dice que bola "es ahora"
x = Math.GetRandomNumber(800) 'ancho horizontal
y = Math.GetRandomNumber(600) 'ancho vertical
Shapes.Animate(ball, x, y, 4000) 'Ubicación de la bolita y cuánto va a estar allí
EndFor
Program.Delay(900) 'tiempo de espera entre animación en milisegundos
EndWhile
Program Listing: SDD303