Option Explicit
Private Sub Form_Activate()
pic1.Circle (pic1.ScaleWidth / 2,pic1.ScaleHeight / 2),_
pic1.ScaleHeight / 2 园
pic1.Circle (pic1.ScaleWidth / 2,_
pic1.ScaleHeight / 2, 0.5水平椭圆
pic1.Circle (pic1.ScaleWidth / 2,1.5垂直椭圆
End Sub
成品图