by Drahcir (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 2nd October 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To display any item at positions around a circle
API Declarations
Dim originX as single,originY as single
Dim angle as single, radius as single
Dim x as single,y as single
angle = angle + pi / 180 '1 degree rotation per interval
If angle > 2* pi then angle = angle - 2 * pi
x = radius * cos(angle) + originX
y = radius * sin(angle) + originY
object.left = x
object.top = y
End Sub