' Controls Gallery via Win32 DECLARE — common controls
#COMPILE EXE
#DIM ALL

DECLARE FUNCTION CreateWindow LIB "USER32.DLL" ALIAS "CreateWindowExA" (BYVAL dwExStyle AS LONG, BYVAL lpClassName AS ASCIIZ, BYVAL lpWindowName AS ASCIIZ, BYVAL dwStyle AS LONG, BYVAL x AS LONG, BYVAL y AS LONG, BYVAL nWidth AS LONG, BYVAL nHeight AS LONG, BYVAL hWndParent AS LONG, BYVAL hMenu AS LONG, BYVAL hInstance AS LONG, BYVAL lpParam AS LONG) AS LONG

FUNCTION PBMAIN() AS LONG
    PRINT "Windows Controls via CreateWindow:"
    PRINT "BUTTON class -> button, checkbox, radio"
    PRINT "EDIT class   -> textbox"
    PRINT "LISTBOX class -> listbox"
    PRINT "COMBOBOX class -> combobox"
    PRINT "SCROLLBAR class -> scrollbar"
    PRINT "msctls_progress32 -> progressbar"
    FUNCTION = 0
END FUNCTION
