XProfan

WINDOWSTYLE 31
WINDOWTITLE "Button als Schalter"
WINDOW 0,0-640,440
Declare Schalter&
LET Schalter&=@Control("Button","Dies ist ein Test",$40000000+$10000000+$400000+3+$1000,20,20,300,30,%HWND,2112,%HINSTANCE)

while 0=0

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

wend