Visual Basic es una aplicacion bastante potente y que agiliza la creacion de aplicaciones, pero una de sus debilidades es la creacion de aplicaciones multimedia o que utilize efectos como formularios con forma irregular, etc. Entonces aca es donde tenemos dos caminos: uno es utilizar el API de Windows y otro es conseguir algun tipo de control ActiveX que realize dicha operacion, en este articulo veremos la creacion de texto en 3 dimenciones sin utilizar el API ni controles ActiveX.

Lo primero que debemos hacer es crear un proyecto nuevo, en el formulario agregar un control del tipo CommandButton y acomodarlo como muestra el siguiente grafico...

Una ves realizado esto cambiamos la propiedad Caption del CommandButton y le damos el valor "Texto en 3D", bien, ahora insertamos este codigo en el formulario...

Private Sub Command1_Click()
Dim I As Integer
Dim X As Integer
Dim Y As Integer

Me.ForeColor = &H0
X = Me.CurrentX
Y = Me.CurrentY

Me.FontSize = 18

For I = 1 To 70
Print "Texto en 3D"
X = X + 1
Y = Y + 1
Me.CurrentX = X
Me.CurrentY = Y
Next I

Me.ForeColor = &HFFFFFF
Print "Texto en 3D"
End Sub

Explicare un poco, primero y principal este codigo solo se ejecuta cuando se haga click en el CommandButton, las primeras 3 lineas de codigo declaran las variables a utilizar en este caso son 3 y del tipo enteras (integer). Lo que hacemos a continuacion es cambiar el color del texto con la propiedad ForeColor. Las propiedades CurrentX y CurrentY devuelven la posicion de las coordenadas actuales del formulario, estas posiciones se las asignamos a X y a Y respectivamente.

Luego establecemos el tamaño de la fuente a "18" utilizando la propiedad "FontSize", mas adelante nos introducimos en un bucle del tipo For..Next que se repite 70 veces, dentro de este bucle lo que hacemos es imprimir 70 veces en pantalla "Texto en 3D" pero cada impresion que hacemos la realizamos un pixel mas a la derecha y uno mas abajo, con esto consegimos el efecto en 3D.

Despues de finalizar el bucle tenemos que imprimir el mismo texto pero con un color mas claro que el anterior para que de una sensacion de 3D mas real, para esto cambiamos el color de fuente a blanco e imprimimos el mismo texto de siempre. Veamos como quedaria nuetro ejemplo...

Espero que sea util dado que no hay muchos controles ni funciones que nos den esta posibilidad.