I created a simple program for animation direction in visual basic.
but as I can is clockwise.
then how do I make it in the counter clockwise ?
this my listing program :

Private Sub Command3_Click()
'animasi searah jarum jam
Cls
Form1.DrawWidth = 30
For i = 1 To 5
Line (150, 100)-(300, 100), vbYellow: Delay: Cls
Line (300, 100)-(450, 100), vbGreen: Delay: Cls
Line (450, 100)-(450, 200), vbRed: Delay: Cls
Line (450, 200)-(450, 300), vbWhite: Delay: Cls
Line (450, 300)-(300, 300), vbBlue: Delay: Cls
Line (300, 300)-(150, 300), vbBlack: Delay: Cls
Line (150, 300)-(150, 200), vbCyan: Delay: Cls
Line (150, 200)-(150, 100), vbMagenta: Delay: Cls
Next
End Sub

Thnx so much.

Just add a new button and stick in this?

Cls
Form1.DrawWidth = 30
For i = 1 To 5
Line (150, 200)-(150, 100), vbMagenta: Delay: Cls
Line (150, 300)-(150, 200), vbCyan: Delay: Cls
Line (300, 300)-(150, 300), vbBlack: Delay: Cls
Line (450, 300)-(300, 300), vbBlue: Delay: Cls
Line (450, 200)-(450, 300), vbWhite: Delay: Cls
Line (450, 100)-(450, 200), vbRed: Delay: Cls
Line (300, 100)-(450, 100), vbGreen: Delay: Cls
Line (150, 100)-(300, 100), vbYellow: Delay: Cls
Next

All I did was reverse the order. Try It, not garunteeing that it will work.

Cls
Form1.DrawWidth = 30
For i = 1 To 5
Line (150, 200)-(150, 100), vbMagenta: Delay: Cls
Line (150, 300)-(150, 200), vbCyan: Delay: Cls
Line (300, 300)-(150, 300), vbBlack: Delay: Cls
Line (450, 300)-(300, 300), vbBlue: Delay: Cls
Line (450, 200)-(450, 300), vbWhite: Delay: Cls
Line (450, 100)-(450, 200), vbRed: Delay: Cls
Line (300, 100)-(450, 100), vbGreen: Delay: Cls
Line (150, 100)-(300, 100), vbYellow: Delay: Cls
Next

Thnx mate, i will try :D
Thx so much again ^^

This question has already been answered. Start a new discussion instead.