Private Sub Command1_Click()

Form1.Circle (1200, 1500), 800, vbBlue

Text1.Text = "画一个实心圆"

End Sub

Private Sub Command2_Click()

Form1.Cls

Text1.Text = "清除实心圆"

End Sub

Private Sub Command3_Click()

End

End Sub