For i=0 To 359
SetBuffer ImageBuffer(cursor_arrow,i)
temp_as=LoadImage("arrow.bmp")
HandleImage temp_as,16,16
RotateImage temp_as,i
DrawImage temp_as,16,16
Next
Бегло посмотрел. Я бы не советовал грузить 360 раз. Ну и ещё парочка мест суровых.
З.Ы. И да, кто после загруженных изображений будет память очищать?