XProfan

Windowstyle 31
Windowtitle "Progressbar"
Window 0,0-640,110
var CLASSNAME$="msctls_progress32"
var ProgressBar&=External("USER32","CreateWindowExA",0,Addr(CLASSNAME$),0,$40000000+$10000000+$800000,10,10,width(%hwnd)-20,height(%hwnd)-20,%hwnd,0,%Hinstance,0)
Sendmessage(ProgressBar&,$0400+9,0,RGB(255,0,0))'PBM_SETBARCOLOR

While 1

    Sleep 200
    Sendmessage(ProgressBar&,$0400+2,SendMessage(ProgressBar&,$0400+8,0,0)+1,0)