VB画椭圆？

Question

    如果知道一个椭球的三个轴，如何才能在Picture Box中把这个椭球画出来呢？
希望哪位高手能给下源代码！

Answer 1

不一定要在Picture中，只要能把椭球画出来 或者动态表示出来都可以

Answer 2

Const a = 60 '长轴
Const b = 30 '短轴
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Scale (-50, -50)-(50, 50)
Picture1.Circle (0, 0), a / 2, vbRed, , 0, b / a
End Sub

Answer 3

上面只是画了个椭圆,画成一个椭球有点难.
Option Explicit
Const a = 60 '长轴
Const b = 30 '短轴
Const c = 40 '
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.Scale (-50, -50)-(50, 50)
Picture1.Circle (0, 0), a / 2, vbRed, , 0, b / a
Picture1.Circle (0, 0), b / 2, vbRed, , 0, a / c
Picture1.Line (-50, 0)-(50, 0), vbRed
Picture1.Line (0, -50)-(0, 50), vbRed
End Sub