'Example of using the Windows title bar context menu
GUI "Form1",PIXELS

CONST IDM_ABOUTBOX = 9990  'must be less than 0xF000

GLOBAL Form1 AS HWND
GLOBAL hStc1 AS CONTROL

SUB FORMLOAD()
  DIM hFont AS HFONT
   Form1 = BCX_FORM("Form1", 0, 0, 514, 110)
   hStc1 = BCX_LABEL("Right Click the title bar to show the new menu item 'About Test'" ,Form1,0, 90, 20, 320, 32)
   'Add Our Menu
   Add2SysMenu(Form1)

   CENTER(Form1)
   SHOW(Form1)
END SUB

BEGIN EVENTS
 SELECT CASE CBMSG
   CASE WM_SYSCOMMAND
      IF CBCTL = IDM_ABOUTBOX THEN
        MSGBOX "This is the about box","ABOUT TEST"
      END IF
 END SELECT
END EVENTS

FUNCTION Add2SysMenu(hwndOwner AS HWND) AS BOOL
  Dim SysMenu as HMENU
  SysMenu = GetSystemMenu(hwndOwner,FALSE)
  AppendMenu(SysMenu,MF_SEPARATOR,0,0)
  AppendMenu(SysMenu,MF_STRING, IDM_ABOUTBOX, "&About 'Test'")
  FUNCTION=TRUE
END FUNCTION