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
