Print 3D Gradiant text on a form

This source sample demonstrates some useful features of VB6, but mostly its just kind of fun. Its a perfect simple sample to implement and show off a little to friends. Once you implement this you will see some cool looking effects on the form. It also demonstrates the For loop construct and a bunch of the properties that you can set on a form including: ScaleMode, Font Name and Size and ForeColor.

To use this source code sample create a new VB project, add a button to the form, double click the button, and add the following source code to the click event handler for your command button.

    Form1.Font.Name = "Times New Roman"    Form1.ForeColor = RGB(I + 5, I + 5, I + 5)    Form1.Print "Cool 3D Text in VB"

Run the program and stare in awe. Once you have it up and working play with some of the setting variable values. You should be able to get all sorts of fun coloring out of it.

Note: The source for this was found at DreamVB which is no longer online.

View the original article here