(AGK version: 108.15)

Submitted: 2013-07-15 14:25:12

Setvirtualresolution(640,480)
ResetTimer()
//Create test sprite cube
id=CreateSprite(0)
SetSpriteSize(id,50,50)
SetSpritePosition(id,200,200)
SetSpriteColor(id,0,0,0,255)
Do
    For i=0 to 255
        SetSpriteColorRed(id,i)
        Sync()
    Next i
    If Timer()>15 Then Exit
    Sync()
Loop
End

Help make AGK better by submitting an example for this command!
(All examples are subject to approval)