Private Sub Draw_ThreeCircles1 (Progress As Float)
Dim MaxR As Float = (cvs.TargetRect.Width / 2 - 20dip) / 2
Dim r As Float = 10dip + MaxR + MaxR * Sin(Progress * 2 * cPI)
For i = 0 To 2
Dim alpha As Int = i * 120 + Progress * 360
alpha = -alpha '<---------------
cvs.DrawCircle(cvs.TargetRect.CenterX + r * SinD(alpha), cvs.TargetRect.CenterY + r * CosD(alpha), 7dip, clr, True, 1dip)
Next
End Sub