XProfan

WINDOWSTYLE 31
WINDOWTITLE "Drei-Status Checkbox"
WINDOW 0,0-640,440
Declare Checkbox&
LET Checkbox&=@Control("Button","Dies ist ein Test",$40000000+$10000000+6,20,20,300,30,%HWND,2112,%HINSTANCE)

while 0=0

    Drawtext 0,0,@str$(@GetCheck(Checkbox&))+"                "

wend