A Red Circle

• Code and Test the Process

Option Explicit

Dim xPos As Integer

Dim yPos As Integer

Private Sub Form_Click()

Circle (xPos, yPos), 200, RGB(255, 255, 255)

xPos = xPos + 20

yPos = yPos + 20

Circle (xPos, yPos), 200, RGB(255, 0, 0)

End Sub

Private Sub Form_Load()

xPos = 1000

yPos = 1000

FillStyle = 0

FillColor = RGB(255, 0, 0)

End Sub

Previous slide

Next slide

Back to first slide

View graphic version