[code]
Graphics 640,480,16,2
SetBuffer BackBuffer()

Global fntArial=LoadFont("Arial",65,True,False,False)

Color 100,100,100
Rect 0,0,640,480

Text3D(25,100,"TEXT STANDING OUT",0)

Text3D(25,300,"TEXT STANDING IN",1)
        Flip

WaitKey

Function TEXT3D(X,Y,TEX$,IN_OUT)

If IN_OUT=0
        HILIGHT=50
        SHADOW=70
EndIf

If IN_OUT=1
        HILIGHT=70
        SHADOW=150
EndIf

SetFont fntArial
Color HILIGHT,HILIGHT,HILIGHT
Text X-1,Y-1,TEX$

SetFont fntArial
Color SHADOW,SHADOW,SHADOW
Text X+1,Y+1,TEX$

Color 60,60,60
Text X,Y,TEX$

End Function
[/code]


This post is from -- http://socoder.net/index.php?topic=0