BCX 8.0.1 teaser. Wait for it !
GUI "BCX_PIE"
SUB FORMLOAD
GLOBAL Form1 AS HWND
Form1 = BCX_FORM("BCX_PIE", 0, 0, 110, 115)
BCX_SET_FORM_COLOR(Form1,QBCOLOR(1))
CENTER(Form1)
SHOW(Form1)
END SUB
BEGIN EVENTS
SELECT CASE CBMSG
CASE WM_PAINT
CALL DrawStuff
END SELECT
END EVENTS
SUB DrawStuff
BCX_PIE(Form1,25, 25, 190, 190, 200, 60, 200, 150, QBCOLOR(14), QBCOLOR(9))
END SUB