Example:
MyImg = LoadAnimImage("pic.png", 16, 16, 0, 5)
Local imgF% = 0, Time% = MilliSecs()
Repeat
DrawImage MyImg, 0, 0, imgF
If MilliSecs() >= Time + 100 then
If imgF < 4 then imgF = imgF + 1 else imgF = 0
Time# = MilliSecs()
endif
Until KeyDown(1)
*edit*
@Wolron: Oops, all better.