怎样用VB怎样建立三维坐标系？

SubPutPixel3DObjectAsPictureBoxxAsIntegeryAsIntegerzAsIntegerColorAsLongObjectPSetx+zy+zColorEndSub这个程序可以在一个图片框中以三维坐标画点