• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 151
  • 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
    Me.Show

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

How can I erase them once the loop ends?
0
Yury Merezhkov
Asked:
Yury Merezhkov
1 Solution
 
GrahamSkanRetiredCommented:
Me.CLs
0
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: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

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

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