Как нарисовать закрашеный ромб?

$a = GUICtrlCreateGraphic(20, 150, 100, 100, 0) ; квадрат
    GUICtrlSetBkColor(-1, 0xf08000)
    GUICtrlSetColor(-1, 0xff)

#include <GuiConstantsEx.au3>

GUICreate("")
$a = GUICtrlCreateGraphic(20, 150, 100, 100, 0)
GUICtrlSetBkColor(-1, 0xf08000)
GUICtrlSetColor(-1, 0xff)

GUICtrlSetGraphic($a, $GUI_GR_COLOR, 0xff0000, 0xff0000)
GUICtrlSetGraphic($a, $GUI_GR_MOVE, 50, 10)
GUICtrlSetGraphic($a, $GUI_GR_LINE, 30, 50)
GUICtrlSetGraphic($a, $GUI_GR_LINE, 50, 90)
GUICtrlSetGraphic($a, $GUI_GR_LINE, 70, 50)


GUISetState()
Do
Until GUIGetMsg() = -3