Circle (y, x), radius

Sætter koden i et Urobjekt og sætter interval til 100.....er ikke sikker men prøv.

/MadD

MadD har ret; dette her giver en nydelig cirkel, der bevæger sig hen over formen (Jeg har sat timeren til 100 ms):

Dim toAdd As Integer
Dim x As Integer
Dim y As Integer
Dim R As Integer
Dim C As Long

Private Sub Command1_Click()
Timer1.Enabled = True
x = 100
y = 500
R = 100
C = RGB(0, 0, 255)
Form1.DrawWidth = 4

End Sub

Private Sub Timer1_Timer()
If x < 4000 Then toAdd = 10 Else toAdd = -10

x = x + toAdd                                  \'sæt nyt x koordinat
Form1.Circle (x - toAdd, y), R, Form1.BackColor \'Fjern foregående cirkel
Form1.Circle (x, y), R, C                      \'tegn ny cirkel

End Sub