Draw the shadow. Then draw the text on top slightly offset.

Private Sub Form_Load()
    AutoRedraw = True
    ScaleMode = vbPixels

    ' Select a nice big font.
    With Font
        .Name = "Times New Roman"
        .Bold = True
        .Size = 48
    End With

    ' Draw the shadow.
    ForeColor = vbBlack
    CurrentX = 10
    CurrentY = 10
    Print "Shadow Text"

    ' Draw the text slightly offset.
    ForeColor = vbBlue
    CurrentX = 10 - 3
    CurrentY = 10 - 3
    Print "Shadow Text"
End Sub