#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>

_Main()

Func _Main()
	Local $hGUI, $hGraphic, $hPen

	; Создаёт GUI
	$hGUI = GUICreate("GDI+", 400, 300)
	GUISetState()

	; Рисует линию
	_GDIPlus_Startup ()
	$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI)
	$hPen = _GDIPlus_PenCreate (0xFF000000, 8)
	_GDIPlus_PenSetWidth($hPen, 4)
	_GDIPlus_GraphicsDrawLine ($hGraphic, 10, 10, 390, 10, $hPen)

	; Показывает ширину пера / карандаша
	MsgBox(4096, "Информация", "Ширина пера / карандаша: " & _GDIPlus_PenGetWidth ($hPen))

	; Цикл выполняется, пока окно не будет закрыто
	Do
	Until GUIGetMsg() = $GUI_EVENT_CLOSE

	; Очищает ресурсы
	_GDIPlus_PenDispose ($hPen)
	_GDIPlus_GraphicsDispose ($hGraphic)
	_GDIPlus_ShutDown ()

EndFunc   ;==>_Main