Sphere in D3D

Does someone have a function that creates a 3d sphere in VB (Direct3D)? I want to planets and other space stuff... :)

http://www14.brinkster.com/CodeCaste.../00000001.html