Alterando a Fonte do Game

Mudando a fonte do Game

Prestem bem atenção.

Código:

Public Sub SetFont(ByVal Font As String, ByVal Size As Byte)

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
 
    GameFont = CreateFont(Size, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Font)
    frmMain.Font = Font
    frmMain.FontSize = Size - 5
 
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SetFont", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Para a fonte ser alterada esse código precisa ser executado. E no lugar em que o procedimento é chamado está um comentário, impossibilitando sua chamada.

' Set font
' Call SetFont(FONT_NAME, FONT_SIZE)
frmMain.Font = "Meiryo UI"
frmMain.FontSize = 10

Apenas modifique isso.

Créditos: Dragonick por criar o tuto
Créditos: Thales12 por postar.