3D Tubes in Visual Basic 6

Environment: Visual Basic 6.0

My purpose for writing this program is to present a visual demo or screen saver-type program. This program, however, is not a a screen saver. It will not be acknowledged by your computer as a screen saver when it is runn, but could be used as the basis for one.

This program presents colors that are shaded with my own sub procedure, which I came up with a while back. I use randoms for the sake of true variety in movement.The following are a few of the random figures generateed in this program.

Click here for larger image

Click here for larger image

Click here for larger image

This is a later version of my original Tube program which had one tube moving around. I have provided comments within the program that I believe are sufficient to explain how it functions. The sub procedures that do not have comment lines should be self-explanatory.

I have not found any bugs or had any problems with this finished version. It has run correctly on my computer using Windows ME Windows. Please feel free to use this program at your own risk. I hope you enjoy watching this.

Editors note: Works on Windows XP as well.

Chris Diemer


Download source code - 5Kb


  • Thank You!

    Posted by Phuc on 04/13/2012 06:09am

    Great your code. I have been viewed your code example about 3D in vb6. But i don't known do it. Can you help me example how to call *3ds file in to vb6? more times thank you very much!

  • Thanks for the posting this material

    Posted by hbmarar on 08/16/2004 02:07am

    I need example codes to learn,and got the one i was looking. let mee try and hope it would be nice stuff.

Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Moving from an on-premises environment to Office 365 does not remove the need to plan for disruptions or reduce the business risk requirements for protecting email services. If anything, some risks increase with a move to the cloud. Read how to ease the transition every business faces if considering or already migrating to cloud email. This white paper discusses: Setting expectations when migrating to Office 365 Understanding the implications of relying solely on Exchange Online security Necessary archiving …

  • Anthony Christie, the Chief Marketing Officer for Level Communications, is responsible for customer experience, worldwide marketing and product management. In this informative asset, he shares his insights into why a private network connection to cloud-bases applications is the right decision for your enterprise. Download now to find out more.

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date