#include <GuiListBox.au3>
#include <GuiButton.au3>
#include <FontConstants.au3>

Example()

Func Example()
	Local $hGUI, $hFont, $hFontList, $iBtn, $hBtn, $hListBox

	$hGUI = GUICreate(StringTrimRight(@ScriptName, 4), 350, 200)

	; $iBtn = GUICtrlCreateButton("Кнопка со шрифтом", 10, 10, 270, 34)
	; $hBtn = GUICtrlGetHandle(-1) ; Получает дескриптор элемента
	$hBtn = _GUICtrlButton_Create($hGUI, "Кнопка со шрифтом", 10, 10, 270, 34)

	$hListBox = _GUICtrlListBox_Create($hGUI, "Жирный шрифт", 10, 50, 270, 150)

	; Заполняет ListBox пунктами
	_GUICtrlListBox_BeginUpdate($hListBox)
	_GUICtrlListBox_Dir($hListBox, "", $DDL_DRIVES, False)
	_GUICtrlListBox_EndUpdate($hListBox)

	; Создаёт объект с характеристиками шрифта
	$hFont = _WinAPI_CreateFont(30, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, _
			$OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Comic Sans MS')

	$hFontList = _WinAPI_CreateFont(20, 0, 0, 0, 700) ; Шрифт для ListBox

	; Назначает шрифт элементам управления
	_WinAPI_SetFont($hBtn, $hFont)
	_WinAPI_SetFont($hListBox, $hFontList)

	GUISetState()

	Do
	Until GUIGetMsg() = $GUI_EVENT_CLOSE
	_WinAPI_DeleteObject($hFont)
	_WinAPI_DeleteObject($hFontList)
EndFunc   ;==>Example