• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 149
  • Last Modified:

How to erase circles

Hi guys,

I use this code to draw circles on my form:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
    Dim i As Integer
    Dim k As Integer
    Me.AutoRedraw = True

    k = 150
    For i = 0 To 5
        Sleep (500)
        Me.Circle (1850 + k, 420), 30
        k = k + 150
    Next i
End Sub

How can I erase them once the loop ends?
Yury Merezhkov
Yury Merezhkov
1 Solution
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now