VB工程--百例47--球体.

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), _
pic1.ScaleHeight / 2, , , , 0.5水平椭圆
pic1.Circle (pic1.ScaleWidth / 2, pic1.ScaleHeight / 2), _
pic1.ScaleHeight / 2, , , , 1.5垂直椭圆

End Sub

成品图