비공개 하위 명령 1_Click()

정수로 a를 어둡게

a = 1000

i = 1을 Text1. text

I. Circle (Form1. Width/2, Format1. Height/2), a

a = a + 1000

그런 다음

관절 종료

개인 서브폼_로드()

AutoRedraw = True

관절 종료