Private Sub Command1_Click() 'add 5 circle
Picture1.Circle (300, 400), 200, vbRed
Picture1.Circle (300, 700), 200, vbRed
Picture1.Circle (300, 1000), 200, vbRed
Picture1.Circle (300, 1300), 200, vbRed
Picture1.Circle (300, 1600), 200, vbRed
End Sub
Private Sub Command2_Click() 'clear two of them
Picture1.Circle (300, 700), 200, Picture1.BackColor
Picture1.Circle (300, 1300), 200, Picture1.BackColor
End Sub