Make your own free website on Tripod.com
Make 3D Text In Label

Preparations

Add 1 Command Button to your form and 3 Labels.
The Text will be displayed in Label1 Position.

Module Code

Global Const GFM_STANDARD = 0
Global Const GFM_RAISED = 1
Global Const GFM_SUNKEN = 2
Global Const GFM_BACKSHADOW = 1
Global Const GFM_DROPSHADOW = 2
Global Const BOX_WHITE& = &HFFFFFF
Global Const BOX_LIGHTGRAY& = &HC0C0C0
Global Const BOX_DARKGRAY& = &H808080
Global Const BOX_BLACK& = &H0&

Form Code

Static Sub FormLabelCaptionEmbossed(L1 As Label, L2 As Label, L3 As Label, _
        label_text As String, label_effect As Integer, label_forecolor As Long, _
        label_depth As Integer)
    Dim lt As String
    Dim savesm As Integer
    Dim f As Form
    Set f = L1.Parent
    L1.Visible = False
    L2.Visible = False
    L3.Visible = False
    savesm = f.ScaleMode
    f.ScaleMode = 3
    If label_text = "" Then
       lt = L1
    Else
       lt = label_text
    End If
    L1 = lt
    L2 = lt
    L3 = lt
    L1.BackStyle = 0
    L1.ForeColor = label_forecolor
    L2.Width = L1.Width
    L2.Height = L1.Height
    L2.BackStyle = L1.BackStyle
    L2.ForeColor = BOX_DARKGRAY&
    L3.Width = L1.Width
    L3.Height = L1.Height
    L3.BackStyle = L1.BackStyle
    L3.ForeColor = BOX_WHITE&
    Select Case label_effect
       Case GFM_SUNKEN
           L2.Left = L1.Left - label_depth
           L2.Top = L1.Top - label_depth
           L3.Left = L1.Left + label_depth
           L3.Top = L1.Top + label_depth
        Case GFM_RAISED
           L2.Left = L1.Left + label_depth
           L2.Top = L1.Top + label_depth
           L3.Left = L1.Left - label_depth
           L3.Top = L1.Top - label_depth
    End Select
    f.ScaleMode = savesm
    L1.Visible = True
    L2.Visible = True
    L3.Visible = True
    L1.ZOrder
End Sub

Private Sub Command1_Click()
'Replace 'VBTown' with the text you want to display,
'Replace the first '1' with '2' to change the 3D effect.
'Replace 'vbBlack' with the Text Color.

    FormLabelCaptionEmbossed Label1, Label2, Label3, "VBTown", 1, vbBlack, 1
End Sub

Go Back