Option Explicit

Private Sub Command1_Click()
Pic1.Cls 清除图片框中的内容
Pic1.FillColor = vbBlue 填充颜色是蓝色
Pic1.FillStyle = 0 实心填充
Pic1.Circle (Pic1.ScaleWidth / 2,Pic1.ScaleHeight / 2),Pic1.ScaleHeight / 2,vbBlue
End Sub

Private Sub Command2_Click()
Pic1.Cls
Pic1.FillColor = vbRed
Pic1.FillStyle = 2
Pic1.Circle (Pic1.ScaleWidth / 2,Pic1.ScaleWidth / 2,_
vbRed,,0.5与椭圆重点不同
End Sub

Private Sub Command3_Click()
Const pi = 3.1415926
Pic1.Cls
Pic1.FillColor = vbGreen
Pic1.FillStyle = 3
Pic1.Circle (Pic1.ScaleWidth / 2,_
Pic1.ScaleHeight / 2,vbRed, -pi / 2,-2 * pi 扇形重点不同
End Sub