FreeVBCode code snippet: Archimedian Spiral Control