For j = 1 To 15 Stime = Timer While (Timer - Stime) < (0.5 / 15) DoEvents If Dun = False Then Zavit = Zavit + 15 Shape2.Top = Shape1.Top + (Shape1.Height / 2) + (S2r * Sin(0.0175 * Zavit)) Shape2.Left = Shape1.Left + (Shape1.Width / 2) + (S2r * Cos(0.0175 * Zavit)) Dun = True End If Wend Dun = False If Zavit = 0 Then Zavit = 360 End If Next j Impossible is nothing