• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Write 3D Text on Form/Picture

Write 3D Text on Form/Picture

A small sub for 3D Text on a Form or Picture box. You can define the depth of the Text, the color, the font and the fontsize.

Assumes
To write on a picturebox replace "Form1" with "Picture1"

Rate Write 3D Text on Form/Picture

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Private Sub Form_Load()
Text3D "Hallo", "Times New Roman", 26, 1500, 200, 100, 146, 16, 46
End Sub
Public Sub Text3D(Strng As String, Fnt As String, Font_size As Integer, XVal As Integer, YVal As Integer, Depth As Integer, Redcol As Integer, Greencol As Integer, Bluecol As Integer)
Form1.AutoRedraw = True
Form1.FontSize = Font_size
Form1.Font = Fnt
Form1.ForeColor = RGB(Redcol, Greencol, Bluecol)
ShadowY = YVal
ShadowX = XVal
For i = 0 To Depth
Form1.CurrentX = ShadowX - i
Form1.CurrentY = ShadowY + i
If i = Depth Then Form1.ForeColor = RGB(Redcol + 80, Greencol + 80, Bluecol + 80)
Form1.Print Strng
Next i
Form1.AutoRedraw = False
End Sub