CALL @WIN1
_SUB WIN1,W303H100,新窗口1,
    SET &p=20
    PBAR PBAR1,L12T13W70H16,20
    LABE -center -vcenter -trans -ncmd PBAR1_TEXT,L12T13W70H16,完成%&p%%%,,0x0000FF
    TIME  ,1000, CALL OnTimer1
_END
_SUB OnTimer1
    CALC #&p=%&p% + 5
    IFEX $%&p%>100, SET p=0
    ENVI @PBAR1_TEXT.visable=0
    ENVI @PBAR1.visable=0
    envi @PBAR1=%&p%        //进度
    envi @PBAR1_TEXT=完成%&p%%%   //文本
    ENVI @PBAR1.visable=1
    ENVI @PBAR1_TEXT.visable=1
    //ENVI @this.InvalidateRect=12;13;82;33;0  //重绘    
_END

