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
成品图
原文链接：https://www.f2er.com/vb/260409.html