Cool 3D-Text(ure)

This prg has a sub to make a 3D-effect of any font you like... Textured or just a plain gradient. Ofcourse, to speed things up, some API are used. No vbogl12 (that contains OpenGl Api1.2) needed... (sorry matt). The sub is stored in the module, and easy to use and understand. The code is quite simple, but very effective. The text can be designed REAL-Time, even when you write it. With the scrollbars change-event, the 3D-text is updated at the same time. In the module, you'll find also a function to read all the fonts and store them in a combobox. This works very fast (faster then the CommonDialog Showfont method), even when you have about 750 fonts - like I do ;). The fontsize can go up to 200 pixels. Anyway, with a small modification, you can save this: SavePicture Pic1.Image, Path & "\name.bmp". So this prg can even be modified to a 3D-text designer, and save the pictures as a bitmap file. Maybe I'll do that someday, who knows ? Note that the backgroundcolor is black (= RGB(0, 0, 0), = &H0, = vbBlack), so this can be used as a mask. Extract this zip with path included, there are some textures in the zip. Be sure to check it out. Comments are always welcome, as usual. E-mail adress in the module. Have fun.