Spinning picture

[James Stanich]

I'd like to create the illusion of a spinning picture. Can anyone help?

[MPrestonf12]

Im not sure how good it would look but if you had two pictures you could cycle through them. One being the front and the other the back. Im sure there is away to spin a single picture but I don't know how.
Here some code for the two picture cycle.

make a array of two pictures. Timer interval to 250 and enabled = true
This rotates a moon. change the values to your needs
Private Sub Command1_Click()
If grotateflag = 0 Then
grotateflag = 1
End If
End Sub

Private Sub Form_Load()
grotateflag = 0 'initalize
gcurrentmoon = 0
End Sub

Private Sub Timer1_Timer()
If grotateflag = 1 Then
Image1.Picture = imgmoon(gcurrentmoon).Picture
gcurrentmoon = gcurrentmoon + 1

If gcurrentmoon = 8 Then
gcurrentmoon = 0
End If
End If
End Sub
hope this helps!

[James Stanich]

Thanks for the help. It may work. Someone told me you can do it through API calss but I haven't figured it out.

Originally posted by MPrestonf12
Im not sure how good it would look but if you had two pictures you could cycle through them. One being the front and the other the back. Im sure there is away to spin a single picture but I don't know how.
Here some code for the two picture cycle.

make a array of two pictures. Timer interval to 250 and enabled = true
This rotates a moon. change the values to your needs
Private Sub Command1_Click()
If grotateflag = 0 Then
grotateflag = 1
End If
End Sub

Private Sub Form_Load()
grotateflag = 0 'initalize
gcurrentmoon = 0
End Sub

Private Sub Timer1_Timer()
If grotateflag = 1 Then
Image1.Picture = imgmoon(gcurrentmoon).Picture
gcurrentmoon = gcurrentmoon + 1

If gcurrentmoon = 8 Then
gcurrentmoon = 0
End If
End If
End Sub
hope this helps!