The CWGraph3D's ControlImage method returns an IPictureDisp for an enhanced metafile. You can pass the return value of ControlImage to VB's SavePicture method to save the metafile to a file. For example, if you wanted to create a metafile at C:\surface.emf, you could do it like this:
SavePicture CWGraph3D1.ControlImage, "C:\surface.emf"
If you want to save to a JPEG, GIF, or some other image format, that is a lot more work. If you're using VB6, that would require using a third party library to perform the conversion. If you're using VB.NET, this would be pretty straight forward with the System.Drawing classes. Reply to this post if you're using VB.NET and I'll look into coming up with an example.
- Elton