aimg0(0) does equal something. It equals astim.
Dim aimg0(30)
aimg0(0) = astim
For i = 1 To 30
aimg0(i) = CopyImage(astim)
RotateImage aimg0(i),12 * i
Next
Dim aimg0(30)
aimg0(0) = astim
For i = 1 To 30
aimg0(i) = CopyImage(astim)
RotateImage aimg0(i),12 * i
Next