Mirage Source

txtBox.FontBold = True

frmMirage.txtChat.SelBold = True

Public Sub DrawText(ByVal hdc As Long, _
                    ByVal X, _
                    ByVal Y, _
                    ByVal Text As String, _
                    Color As Long, _
                    Optional ByVal Bold As Boolean = False)

    SelectObject hdc, GameFont
    SetBkMode hdc, vbTransparent

    SetTextColor hdc, Color

    If Bold Then
        TextOut hdc, X - 1, Y, Text, Len(Text)
        TextOut hdc, X + 1, Y, Text, Len(Text)
        TextOut hdc, X, Y - 1, Text, Len(Text)
        TextOut hdc, X, Y + 1, Text, Len(Text)
    End If

    TextOut hdc, X, Y, Text, Len(Text)

End Sub