Draw text on a decent way

[Joost]

Code:

Public Sub DrawText(ByVal hDC As Long, ByVal X, ByVal y, ByVal Text As String, Color As Long)
    If LenB(Text) > 0 Then
    DD_BackBuffer.SetForeColor 0
    DD_BackBuffer.DrawText X + 2, y + 2, Text, False
    DD_BackBuffer.DrawText X + 1, y + 1, Text, False
    DD_BackBuffer.SetForeColor Color
    DD_BackBuffer.DrawText X, y, Text, False
    End If
End Sub