Draw text on a decent way

[Jacob]

You need to set the font object for DX also.

Code:

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