Programan bergerak (animasi) dan small basic

1. Garis bergerak lurus
for i = 1 to 10000
x1 = i
y1 = 0
x2 = x1 + 1
y2 = 0
graphicswindow.drawline(x1, y1, x2, y2)
Program.Delay(100)
endfor

atau

For i = 0 To 1000
if i = 0 Then
  x1 = i
Else
  x1 = i * 10
EndIf
y1 = 10
x2 = x1 + 10
y2 = 10
Shapes.AddLine(x1, y1, x2, y2)
Program.Delay(10)
EndFor

2. Shape bergerak
- shape rectangle bergerak


- shape triangle bergerak



3.