Option Explicit

Const a = 0.2
Const b = 0.01
Const bb = 50
Const c = 0.01
Const cc = 100

Private Sub Form_Click()
   Dim x As Single, y As Single, t As Single
    
   For t = 0 To 3500
     x = t * a + Sin(t * b) * bb
     y = Cos(t * c) * cc
     PSet (x, y)
   Next t
End Sub

Private Sub Form_Load()
   ScaleLeft = 0
   ScaleWidth = 500
   ScaleTop = -150
   ScaleHeight = 300
End Sub

    CGPoint pos = self.position;
     currentTime += dt;
     pos.x = startX - 50 * currentTime - 20 * cosf(4 * currentTime);
     pos.y = activationDistance + 50 * (sinf(PI + 4 * currentTime) - 1);
     self.position = pos;