Как нарисовать окружность в заданных координатах

Circle (X,Y), R, vbRed

Scale (-10, -10)-(10, 10)
X = 0: Y = 0: r = 4
Circle (X, Y), r, vbRed

Dim a As Integer
 
Private Sub Form_Load()
    Timer1.Interval = 200
    Timer1.Enabled = True
    Label1.Caption = ""
    Label1.AutoSize = True
End Sub
 
Private Sub Timer1_Timer()
    If a >= 10 Then Label1.Caption = "": a = 1 Else a = a + 1
    Label1.Caption = Label1.Caption & "1" & "   " & Time & vbCrLf
End Sub

Me.List1.AddItem "Нужный_текст"

Private Sub Form_Load()
Dim X as Integer, Y as Integer,r as Integer
Scale (-10, -10)-(10, 10)
X = 0: Y = 0: r = 4
Circle (X, Y), r, vbRed
End Sub

Me.List1.AddItem "Нужный_текст"

Private Sub Command1_Click()
Dim i%
i = List1.ListCount - 1
Do While i > 0
List1.List(i) = List1.List(i - 1)
i = i - 1
Loop
List1.List(0) = Time
End Sub
 
Private Sub Form_Load()
Me.AutoRedraw = True
Dim X As Integer, Y As Integer, r As Integer
Scale (-10, -10)-(10, 10)
X = 0: Y = 0: r = 3
Circle (X, Y), r, vbRed
For i = 0 To 9
List1.AddItem ""
Next
End Sub

Private Sub Form_Load()
Dim X As Integer, Y As Integer, r As Integer
     Me.Show 
     Me.AutoRedraw = True
     Scale (-10, -10)-(10, 10)
     X = 0: Y = 0: r = 4
     Circle (X, Y), r, vbRed
End Sub

Private Sub Timer1_Timer()
    List1.AddItem Time
    If List1.ListCount > 10 Then List1.RemoveItem 0
End Sub