I hope you like it.
#Region _GuiCtrlSetFont.au3
;Copyrights to funkey !!
#include <WinAPI.au3>
OnAutoItExitRegister("_FontCleanUp")
Global $ahFontEx[1] = [0]
Func _GuiCtrlSetFont($controlID, $size, $weight = 400, $attribute = 0, $rotation = 0, $fontname= "", $quality = 2)
Local $fdwItalic = BitAND($attribute, 1)
Local $fdwUnderline = BitAND($attribute, 2)
Local $fdwStrikeOut = BitAND($attribute, 4)
ReDim $ahFontEx[UBound($ahFontEx) + 1]
$ahFontEx[0] += 1
$ahFontEx[$ahFont