Moving a circle in a circle 1

[PockyBum522]

I have a shape on my form, is it possible to move it in a circle around a point I specify?

 

[johnwm]

Use a Timer control with interval set to 10. Then stick this in the Timer event:

Private Sub Timer1_Timer()
Static Counter As Double
Image1.Left = 2700 + 1000 * (Sin(Counter))
Image1.Top = 1700 + 1000 * (Cos(Counter))
Counter = Counter + 0.005
End Sub

just change the 2700 (twips from left of form) and 1700 (from top) as required. The 1000 mukltiplier sets the circle diameter

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[PockyBum522]

Thanks! Exactly what I wanted!