Mirage Source

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

Public Sub SetFont(ByVal Font As String, ByVal Size As Byte)
Dim FontInfo As New StdFont

    DD_BackBuffer.SetFontTransparency True

    FontInfo.Bold = True
    FontInfo.Size = Size
    FontInfo.Name = Font

    DD_BackBuffer.SetFont FontInfo
   
End Sub