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
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