[wolfgang]

Hi,
first: Erel was faster.

Try this

Sub Globals
	i = 0
	a = 0
End Sub

Sub App_Start
	Form1.Show
	Form1.ForeLayer = true
	Form1.Circle (120,120,100,cYellow)
	Timer1.Enabled = true
End Sub

Sub Timer1_Tick
	Form1.FErase(40,40,200,200)
	a = i / 180 * cPI
	Form1.FLine(120,120,120 + 80 * Sin(a),120 - 80 * Cos(a),cRed)
	i = i + 6
End Sub

May be this simple code can help you.