- Code: Select all Expand view RUN
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
DEFINE WINDOW oWnd
SET MESSAGE OF oWnd 2007
DEFINE MSGITEM OF oWnd:oMsgBar;
SIZE 70;
COLOR CLR_BLACK, CLR_HRED;
PROMPT "CHECKLIST"
oWnd:oMsgBar:KeybOn()
oWnd:oMsgBar:DateOn()
oWnd:oMsgBar:ClockOn()
ACTIVATE WINDOW oWnd
RETURN NIL
EMG