Private Sub Command1_Click()Me.FillStyle = vbSolidMe.FillColor = vbRedMe.Circle (300, 300), 300, vbRedMe.FillColor = vbYellowMe.Circle (800, 800), 300, vbYellowMe.FillColor = vbGreenMe.Circle (1300, 1300), 300, vbGreenEnd Sub