'(C) Copyright jian2587 2005. Use freely but give credit! :)
Private Sub Form_Load()
RotateControls
End Sub
Private Sub RotateControls(Optional ByVal msTime As Single = 3)
Dim lLeft() As Long
Dim lTop() As Long
Dim sngDegree() As Single
Dim sngDistance() As Long
Dim sngStepX() As Single
Dim sngStepY() As Single
Dim CtrlCount As Long
Dim i As Long
Dim Ctrl As Control
Dim cX As Long
Dim cY As Long
Dim Pi As Double
Dim DegRad As Single
Dim RadDeg As Single
Dim t As Single
Dim X As Single, Y As Single
Dim w As Single
Dim c As Long
Dim lStep As Long
Dim sngStepDeg As Single
CtrlCount = Me.Controls.Count
ReDim lLeft(CtrlCount)
ReDim lTop(CtrlCount)
ReDim sngDegree(CtrlCount)
ReDim sngDistance(CtrlCount)
ReDim sngStepX(CtrlCount)
ReDim sngStepY(CtrlCount)
'Initialize variables
Pi = 3.141593
DegRad = Pi / 180
RadDeg = 180 / Pi
Me.Show
Me.AutoRedraw = True
w = 0.1
lStep = 100
sngStepDeg = 5
'Get center X and center Y
cX = Me.Width \ 2
cY = Me.Height \ 2
'Save each control's original position, degree and distance from center
For i = 0 To CtrlCount - 1
lLeft(i) = Me.Controls(i).Left
lTop(i) = Me.Controls(i).Top
sngDegree(i) = CSng(Atn((lTop(i) - cY) / (lLeft(i) - cX)) * RadDeg)
sngDistance(i) = CLng(Sqr(((lTop(i) - cY) ^ 2) + ((lLeft(i) - cX) ^ 2)))
Next
'Show time
t = Timer + msTime
Do Until Timer >= t
Me.Cls
PSet (cX, cY), 0
For i = 0 To CtrlCount - 1
Set Ctrl = Me.Controls(i)
'We increment the degree bit by bit
sngDegree(i) = (sngDegree(i) + sngStepDeg) Mod 360
'Calculate the correct position given the degree and distance
X = Cos(sngDegree(i) * DegRad) * sngDistance(i) + cX
Y = Sin(sngDegree(i) * DegRad) * sngDistance(i) + cY
'Move them
Ctrl.Move X, Y
Ctrl.Refresh
'Connect the control to the center with a line
'Me.Line -(X, Y), 0
Me.Line (cX, cY)-(X, Y), 65280 'RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
Next
Me.Refresh
w = Timer + 0.01
Do Until Timer >= w
DoEvents
Loop
Loop
'Get the gradual increase of each control
For i = 0 To CtrlCount - 1
Set Ctrl = Me.Controls(i)
sngStepX(i) = (lLeft(i) - Ctrl.Left) / lStep '(msTime / 2)
sngStepY(i) = (lTop(i) - Ctrl.Top) / lStep '(msTime / 2)
Next
'Return each control to their original position gradually
For c = 1 To lStep
Me.Cls
For i = 0 To CtrlCount - 1
Set Ctrl = Me.Controls(i)
X = Ctrl.Left + sngStepX(i)
Y = Ctrl.Top + sngStepY(i)
Ctrl.Move X, Y
Ctrl.Refresh
Me.Line (cX, cY)-(X, Y), 0
Next
Me.Refresh
w = Timer + 0.01 '(msTime / 2 / lStep)
Do Until Timer >= w
DoEvents
Loop
Next
For i = 0 To CtrlCount - 1
Set Ctrl = Me.Controls(i)
Ctrl.Move lLeft(i), lTop(i)
Next
Set Ctrl = Nothing
Me.Cls
End Sub
