'Lägg dessa i deklarationer!

Public x
Public y
Public radiex
Public radiey
Public xx
Public yy
Public angl


Private Sub Form_Load()
x = 3000
y = 3000
radiex = 1000
radiey = 1000
End Sub

'Timern - Sätt intervallen till 1ms!
Private Sub Timer1_Timer()
angl = angl + 0.05
xx = (Cos(angl) * radiex) + x
yy = (Sin(angl) * radiey) + y
PSet (xx, yy), 15
End Sub