HOLA!!!

Estaba viendo Sources de mi biblioteca (virtual), y encontre uno que hacia letras 3D (medio cutre el codigo pero bueno) lo edite y hace letras 3D con diferentes orientaciones, soporta cambio de colores, fuentes tamaños y orientacion.

Las letras salen muy coloridas por la funcion ABS cambien ahi y pierden los colores Flasheros.

Nota, la Funcion la llaman con Call.

Una Imagen (letra arial color 90,200,30):


Source:

Private Function Letras3D7913(Pic As PictureBox, Frase As String, Red As Long, Green As Long, Blue As Long, Optional Orientacion As Boolean = True, Optional Tamaño As Long = 25, Optional Fuente As String = "Arial")
Dim x As Long
    Pic.FontName = Fuente
    Pic.FontSize = Tamaño
    For x = 255 To 1 Step -1
        Pic.ForeColor = RGB(Abs(Red - x), Abs(Green - x), Abs(Blue - x))
        If Orientacion Then Pic.CurrentX = x Else Pic.CurrentX = 255 - x
        If Orientacion Then Pic.CurrentY = x Else Pic.CurrentY = 255 - x
        Pic.Print Frase
    Next x
End Function

Nota: La funcion original no tenia autor aparentemente, al que lo hizo gracias!

GRACIAS POR LEER!!!