Microsoft Small Basic

Program Listing:
Embed this in your website
'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
Copyright (c) Microsoft Corporation. All rights reserved.