Attribute VB_Name = "mod_3DText"
Option Explicit
Public Sub PrintText(frm As Form, Text As String, _
   X As Integer, Y As Integer)
   'X,Y are the starting print locations
   frm.ForeColor = RGB(32, 32, 32) 'Color for the shadow
   frm.Font.Name = "Arial"
   frm.Font.Size = 48
   frm.CurrentX = X                 ' Positioning of the text, add numbers here
   frm.CurrentY = Y                 ' to make shadows
   frm.Print Text
   frm.ForeColor = vbYellow         'forecolor changed to yellow
   frm.CurrentX = X - 20
   frm.CurrentY = Y - 30
   frm.Print Text
End Sub