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