XProfan

 $P+
SetErrorLevel 0
def SetWindowTheme(3) !uxtheme.dll,SetWindowTheme
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&
 $H CommCtrl.ph.
 $H Windows.ph
WINDOWSTYLE 63
WINDOWTITLE Neues Fenster
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
BUTTON1&= CREATE(BUTTON,%HWND,Ende,0401,0229,0070,0030)
SetWindowTheme(BUTTON1&,,) Alter Style
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        LET ENDE%= 1

    ENDIF

WEND

window 100,100-300,300
def SetWindowTheme(3) !uxtheme.dll,SetWindowTheme

while 1

    SetWindowTheme(%hwnd,,)
    waitkey
    SetWindowTheme(%hwnd,0,0)
    waitkey

endwhile