B4J Tutorial Trace of a point on a rolling wheel

Sub Timer1_tick
    WheelAngle = (WheelAngle + 0.1)
 
     ' Move the wheel to the right based on the arc length

      WheelCenterX = WheelCenterX + (WheelRadius * 0.1) ' <<<<------ move wheel this amount.
 
  ' Calculate the new position of the point on the wheel
    PointX = WheelCenterX + WheelRadius * Cos(WheelAngle)
    PointY = WheelCenterY + WheelRadius * Sin(WheelAngle)



    ' Add the new position of the point to the trace path
    TracePath.Add(Array As Float(PointX, PointY))

    ' Redraw the canvas
    Canvas1.ClearRect(0, 0, Canvas1.Width, Canvas1.Height)
    DrawWheel
End Sub