XProfan

Def @InitCommonControls(0) !"COMCTL32","InitCommonControls"
DEf @CreateWindowEx(12) !"USER32","CreateWindowExA"
DEF @GetSysColor(1) !"USER32","GetSysColor"
Settruecolor 1
Declare CLASSNAME$,PROGRESSHandle&,HWND&,Windowname#,ProgressZähler&
Windowstyle 31
Windowtitle "Progressbar"
Window 0,0-640,440
CLS @getsyscolor(15)
LET HWND&=%HWND
@InitCommonControls()
LET CLASSNAME$="msctls_progress32"
LET PROGRESSHandle&=@CreateWindowEx(0,@addr(CLASSNAME$),0,$40000000+$10000000+$800000+$40000,20,360,600,30,HWND&,0,%Hinstance,0)

While ProgressZähler&<>101

    Sleep 250
    @sendmessage(PROGRESSHandle&,$0400+2,ProgressZähler&,0)
    LET ProgressZähler&=ProgressZähler&+1

wend